From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Tue, 23 Feb 2010 07:26:41 +0000 (+1300)
Subject: Merge branch 'master' of git://factorcode.org/git/factor
X-Git-Tag: 0.97~4841
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=7decccf8bb11874881d5d54a20a21c5430a64927

Merge branch 'master' of git://factorcode.org/git/factor
---

7decccf8bb11874881d5d54a20a21c5430a64927
diff --cc basis/alien/parser/parser-tests.factor
index 84eefe9df6,d2aec71f52..37f10722d1
--- a/basis/alien/parser/parser-tests.factor
+++ b/basis/alien/parser/parser-tests.factor
@@@ -18,30 -18,21 +18,26 @@@ CONSTANT: eleven 1
      [ { int 5 } ] [ "int[5]" parse-c-type ] unit-test
      [ { int 5 10 11 } ] [ "int[5][10][11]" parse-c-type ] unit-test
      [ { int 5 10 eleven } ] [ "int[5][10][eleven]" parse-c-type ] unit-test
-     [ void* ] [ "int*" parse-c-type ] unit-test
-     [ void* ] [ "int**" parse-c-type ] unit-test
-     [ void* ] [ "int***" parse-c-type ] unit-test
-     [ void* ] [ "int****" parse-c-type ] unit-test
-     [ char* ] [ "char*" parse-c-type ] unit-test
-     [ void* ] [ "char**" parse-c-type ] unit-test
-     [ void* ] [ "char***" parse-c-type ] unit-test
-     [ void* ] [ "char****" parse-c-type ] unit-test
+     [ pointer: void ] [ "void*" parse-c-type ] unit-test
+     [ pointer: int ] [ "int*" parse-c-type ] unit-test
+     [ pointer: int* ] [ "int**" parse-c-type ] unit-test
+     [ pointer: int** ] [ "int***" parse-c-type ] unit-test
+     [ pointer: int*** ] [ "int****" parse-c-type ] unit-test
+     [ pointer: char ] [ "char*" parse-c-type ] unit-test
      [ char2 ] [ "char2" parse-c-type ] unit-test
-     [ char* ] [ "char2*" parse-c-type ] unit-test
+     [ pointer: char2 ] [ "char2*" parse-c-type ] unit-test
  
-     [ "not-c-type" parse-c-type ] [ no-c-type? ] must-fail-with
      [ "not-word" parse-c-type ] [ error>> no-word-error? ] must-fail-with
- 
  ] with-file-vocabs
  
 -FUNCTION: void* alien-parser-effect-test ( int *arg1 float arg2 ) ;
 +FUNCTION: void* alien-parser-function-effect-test ( int *arg1 float arg2 ) ;
  [ (( arg1 arg2 -- void* )) ] [
 -    \ alien-parser-effect-test "declared-effect" word-prop
 +    \ alien-parser-function-effect-test "declared-effect" word-prop
 +] unit-test
 +
 +CALLBACK: void* alien-parser-callback-effect-test ( int *arg1 float arg2 ) ;
 +[ (( arg1 arg2 -- void* )) ] [
 +    \ alien-parser-callback-effect-test "callback-effect" word-prop
  ] unit-test
  
  ! Reported by mnestic