specialized-arrays: fix unit tests now that ALIEN: expects a hex literal

db4
Slava Pestov 2009-09-13 00:24:31 -05:00
parent 4686063d0f
commit 16209bf68d
1 changed files with 3 additions and 3 deletions

View File

@ -100,12 +100,12 @@ SPECIALIZED-ARRAY: test-struct
] unit-test
! Regression
STRUCT: fixed-string { text char[100] } ;
STRUCT: fixed-string { text char[64] } ;
SPECIALIZED-ARRAY: fixed-string
[ { ALIEN: 123 ALIEN: 223 ALIEN: 323 ALIEN: 423 } ] [
ALIEN: 123 4 <direct-fixed-string-array> [ (underlying)>> ] { } map-as
[ { ALIEN: 100 ALIEN: 140 ALIEN: 180 ALIEN: 1c0 } ] [
ALIEN: 100 4 <direct-fixed-string-array> [ (underlying)>> ] { } map-as
] unit-test
! Ensure that byte-length works with direct arrays