Using "same?" in more places.

[factor.git] / extra / llvm / types / types-tests.factor

diff --git a/extra/llvm/types/types-tests.factor b/extra/llvm/types/types-tests.factor
index d715fe97df60182a1fe67aa805c2a7cb7cbb03e8..9422ce54aa88a80ff0713f07ec89952fa2038be3 100644 (file)
--- a/extra/llvm/types/types-tests.factor
+++ b/extra/llvm/types/types-tests.factor
@@ -18,8 +18,8 @@ USING: kernel llvm.types sequences tools.test ;
 [ T{ struct f f { float TYPE: i32 (i32)* ; } t } ]
 [ TYPE: < { float, i32 (i32)* } > ; ] unit-test
 
-[ t ] [ TYPE: i32 ; TYPE: i32 ; [ >tref ] bi@ = ] unit-test
-[ t ] [ TYPE: i32 * ; TYPE: i32 * ; [ >tref ] bi@ = ] unit-test
+[ t ] [ TYPE: i32 ; TYPE: i32 ; [ >tref ] same? ] unit-test
+[ t ] [ TYPE: i32 * ; TYPE: i32 * ; [ >tref ] same? ] unit-test
 
 [ TYPE: i32 ; ] [ TYPE: i32 ; >tref tref> ] unit-test
 [ TYPE: float ; ] [ TYPE: float ; >tref tref> ] unit-test
@@ -37,4 +37,4 @@ USING: kernel llvm.types sequences tools.test ;
 [ TYPE: < { i32, i32 } > ; ] [ TYPE: < { i32, i32 } > ; >tref tref> ] unit-test
 [ TYPE: i32 ( i32 ) ; ] [ TYPE: i32 ( i32 ) ; >tref tref> ] unit-test
 [ TYPE: \1* ; ] [ TYPE: \1* ; >tref tref> ] unit-test
-[ TYPE: { i32, \2* } ; ] [ TYPE: { i32, \2* } ; >tref tref> ] unit-test
\ No newline at end of file
+[ TYPE: { i32, \2* } ; ] [ TYPE: { i32, \2* } ; >tref tref> ] unit-test