use radix literals

[factor.git] / core / alien / alien-tests.factor

diff --git a/core/alien/alien-tests.factor b/core/alien/alien-tests.factor
index 3321dbe2edc196ea2c2bb4d08ddc46b99d68b4f5..075a672bbde57f33f4ba185d3144ff7eeb1ca5ee 100644 (file)
--- a/core/alien/alien-tests.factor
+++ b/core/alien/alien-tests.factor
@@ -43,20 +43,20 @@ IN: alien.tests
 ] unit-test
 
 cell 8 = [
-    [ HEX: 123412341234 ] [
+    [ 0x123412341234 ] [
       8 <byte-array>
-      HEX: 123412341234 over 0 set-alien-signed-8
+      0x123412341234 over 0 set-alien-signed-8
       0 alien-signed-8
     ] unit-test
     
-    [ HEX: 123412341234 ] [
+    [ 0x123412341234 ] [
       8 <byte-array>
-      HEX: 123412341234 over 0 set-alien-signed-cell
+      0x123412341234 over 0 set-alien-signed-cell
       0 alien-signed-cell
     ] unit-test
 ] when
 
-[ "ALIEN: 1234" ] [ HEX: 1234 <alien> unparse ] unit-test
+[ "ALIEN: 1234" ] [ 0x1234 <alien> unparse ] unit-test
 
 [ ] [ 0 B{ 1 2 3 } <displaced-alien> drop ] unit-test
 
@@ -64,13 +64,13 @@ cell 8 = [
 
 [ 1 1 <displaced-alien> ] must-fail
 
-[ f ] [ 0 B{ 1 2 3 } <displaced-alien> pinned-c-ptr? ] unit-test
+[ f ] [ 1 B{ 1 2 3 } <displaced-alien> pinned-c-ptr? ] unit-test
 
-[ f ] [ 0 B{ 1 2 3 } <displaced-alien> 1 swap <displaced-alien> pinned-c-ptr? ] unit-test
+[ f ] [ 2 B{ 1 2 3 } <displaced-alien> 1 swap <displaced-alien> pinned-c-ptr? ] unit-test
 
 [ t ] [ 0 B{ 1 2 3 } <displaced-alien> 1 swap <displaced-alien> underlying>> byte-array? ] unit-test
 
-[ "( displaced alien )" ] [ 0 B{ 1 2 3 } <displaced-alien> unparse ] unit-test
+[ "( displaced alien )" ] [ 1 B{ 1 2 3 } <displaced-alien> unparse ] unit-test
 
 SYMBOL: initialize-test