steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

functors: fix unit test

db4
Slava Pestov 2010-05-05 00:44:21 -04:00
parent de8e0ccd5c
commit 029719f757
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
basis/functors/functors-tests.factor
View File

@ -159,7 +159,7 @@ T-class DEFINES-CLASS ${T}
WHERE WHERE
STRUCT: T-class STRUCT: T-class
{ NAME c:int } { NAME c:longlong }
{ x { TYPE 4 } } { x { TYPE 4 } }
{ y { c:short N } } { y { c:short N } }
{ z TYPE initial: 5 } { z TYPE initial: 5 }
@ -178,32 +178,32 @@ STRUCT: T-class
{ offset 0 } { offset 0 }
{ class integer } { class integer }
{ initial 0 } { initial 0 }
{ type c:int } { type c:longlong }
} }
T{ struct-slot-spec T{ struct-slot-spec
{ name "x" } { name "x" }
{ offset 4 } { offset 8 }
{ class object } { class object }
{ initial f } { initial f }
{ type { c:char 4 } } { type { c:char 4 } }
} }
T{ struct-slot-spec T{ struct-slot-spec
{ name "y" } { name "y" }
{ offset 8 } { offset 12 }
{ class object } { class object }
{ initial f } { initial f }
{ type { c:short 2 } } { type { c:short 2 } }
} }
T{ struct-slot-spec T{ struct-slot-spec
{ name "z" } { name "z" }
{ offset 12 } { offset 16 }
{ class fixnum } { class fixnum }
{ initial 5 } { initial 5 }
{ type c:char } { type c:char }
} }
T{ struct-slot-spec T{ struct-slot-spec
{ name "float" } { name "float" }
{ offset 16 } { offset 20 }
{ class object } { class object }
{ initial f } { initial f }
{ type { c:float 2 } } { type { c:float 2 } }