World: r3wp

how to remove element b ?

It's not possible to add or remove values within an object.

You can create a new object based on your object that adds or omits 
values, the latter being trickier.

or you can set b to none ....

construct head remove remove find third a to-set-word 'b

:-)

That would fail under the following circumstance:

a: context [c: to-set-word 'b b: 123]

strange result, I would expect obtaining error here?
>> unset in a 'b
>> probe a

make object! [
    b: unset
    c: 6
]
>> a/b
>>

how to add object e: 7 to a ?

you have to clone the object with the new instance variable

a: make a [ e: 7 ]

ok

how to [ d: 5]
word: "d"
integer : "5"

Lookup 'parse for that one..

parse? why parse? What do you mean, Micha?

what do you want to do?

do [ d: 5 ]

>> d
== 5

>> word: "d"
== "d"
>> integer: 5
== 5
>> set to-set-word word integer
== 5
>> d
== 5

Or did you mean something more like...

foreach [word integer] [a 1 b 2 c 3] [
    print ["Word: " to string! word newline "Integer: " integer]
]

I'm getting a confusing error about using paths on a logic! object 
when trying to use the methods of a created object. I figure I'm 
missing something obvious, but I can't figure out what it is:

test-result: make object! [
    run-count: 0
    error-count: 0

    test-started: does [
        run-count: run-count + 1
    ]

    test-failed: does [
        error-count: error-count + 1
    ]

    summary: does [
        return join  run-count [ " run, " error-count " failed" ]
    ]
]


; ...


            ed: make test-result [ ]
            ed/test-started
            ed/test-failed
            assert [ ed/summary == "1 run, 1 failed" ]

; output of code:

[[wisti-:-us1-dhcp-227-65] xUnit]$ rebol xunit.r
** Script Error: Cannot use path on logic! value
** Where: test-failed-result-formatting
** Near: ed/test-started
ed/test-failed
assert [ed/summary == "1 run, 1 failed"]

The code is just me working my way through the book "Test-Driven 
Development" by Kent Beck. I like applying educational exercises 
to new languages as I find them :-)

Where is 'ed defined?

ed: make test-result [ ]

beginning of the second block

Ah, so it is. ;~>

Hm...  I end up with...

** Script Error: assert has no value
** Near: assert [ed/summary == "1 run, 1 failed"]

So 'ed must be defined somewhere else as well?  Have you tried using 
another word?

Let me make the whole script available. I was hoping it was a very 
simple logic error in those lines.

http://coolnamehere.com/rebol/xunit.r

The "probe result" line at the end is usually "print probe disarm 
result", but I set it back while trying to poke at this issue.

Ahah!

aha? Yes, yes?

A favorite subject of mine. ;-)

heh.

in 'test-case-test, you are redefining 'test-result as a function, 
not globaly so you aren't actually changing the definition but adding 
a new one to the current context.

oh jeez. Thanks :-)

so when you 'make 'test-result you are making a function not the 
object that you thought that you were making...

Is there a flag I can set to warn when something is being redefined?

I changed function 'test-result to function 'test-result-summary 
and everything is golden again.

You can keep your current set up with the redefined 'test-result 
but you will need to run 'compose on the spec block being passed 
to 'test-case-test and enclose 'test-result in a paren

Not for something like this, particularly since you aren't actually 
redefining anything! ;~>

You're creating a NEW definition in a NEW context.

so ...

test-case-test: make test-case compose([ ... ])

Did I understand that correctly?

almost

'compose evaluates any parens in the block passed to it.  If you 
are passing 'compose a block containing blocks that contain values 
you would like composed then you need to use the /deep refinement 
of compose

ow.

; (i.e. 
test-case-test: make test-case compose/deep [
    ...
    test-result-formating: func [/local ed][
        ed: make (test-result)
        ...
    ]
]