World: r3wp

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)
        ...
    ]
]

I think I'll avoid 'compose for now, and leave it for when I'm done 
with the basic stuff in the test book.

but that's good to know, thanks again.

Np, you're welcome!

obj-spec: func [
    "Returns the object spec as a single line (flat) string."
    obj [object!]
    /only "no surrounding brackets"
    /mold "Multi-line MOLDed format"
    /local res
][
    res: copy find/tail system/words/mold obj "make object! "
    if not mold [trim/lines res]
    if only [res: trim/auto next head remove back tail next res]
    res
]

remove-words: func [

    "Returns a copy of the object with the specified words removed."
    object [object!]
    words  [word! block!] "The word, or words, to remove"
    /local spec
][
    spec: load obj-spec object
    foreach word compose [(words)] [
        remove/part find spec to set-word! word 2
    ]
    make object! spec
]

how to count difference time
 x:  now/precise
== 15-Mar-2005/11:01:58.139+1:00
 y: now/precise
== 15-Mar-2005/11:02:38.733+1:00

x - y  =

help difference

subtract

difference now/precise now/precise

block: [ "a:" "string1" "b:" "string2"    ]

Fremowe: func [x y][return remove remove find x  y ]

Fremowe block "a:"

not remove a ?

what this function does not act ?

1) You don't have to use return word ...., function does return the 
last point of its evaluation

and besides that, it works here ...

He guys, I need you !!!

ping?

I want to get in a Rebol script what I print on a standard windows 
printer.

I use Redmon (part of ghostview) to redirect what the printer get 
to my rebol script
RedMon : http://www.cs.wisc.edu/~ghost/redmon/index.htm
I'm under Windows.

How can I get data from the standard input ?

I have tried "copy system/standard/input" and also "input", but get 
nothing !!
plis help ;-)

have you tried -w? that uses dos-window as console AFAIK.

or use a temporary file?

Ah, this looks like a cgi-stype call. i would try --cgi then. it 
should do this "call and get data from stdin".

cgi-stype -> cgi-style

;serwer proxy


p: make port! tcp://:80

p/awake: func [ port /local  data conn targed cmd partner url 
] [



conn: first port
wait conn
data: to-string copy conn

replace/all data "^M" ""
source data

targed: copy/part data find data "HTTP/1.1"
data: find/tail data "^/"
print targed

cmd: parse targed none

url:  decode-url cmd/2 

if not url/path  [url/path: "" ]

if not url/target  [url/target: ""]

partner: open/no-wait to-url rejoin [ "tcp://" url/host ":80" ]




insert partner rejoin [ cmd/1" /" url/path url/target " HTTP/1.1^/" 
 data]

wait partner

tmp: copy partner




close partner



insert conn tmp



close conn 

]


append system/ports/wait-list p


open/binary/no-wait p
 wait []


halt

what this server not act ?

what this server not act ?
  -->  "why does this server not work ?"

print [rebol/product rebol/version]

View 1.2.55.3.1