diff options
| author | Akira TAGOH <akira@tagoh.org> | 2006-09-23 18:05:45 +0000 |
|---|---|---|
| committer | Akira TAGOH <akira@tagoh.org> | 2006-09-23 18:05:45 +0000 |
| commit | e0e89954d8bccab5ad9299e1daf2ce4bf512adcc (patch) | |
| tree | bf24ecb5d52659b26881315b5400f567290d6e4e | |
| parent | 16505400583c45c91e4d51d6ce722f7408cdc844 (diff) | |
* tests/ps/test-aload.ps: new testcase.
* tests/ps/test-anchorsearch.ps: new testcase.
| -rw-r--r-- | ChangeLog | 4 | ||||
| -rw-r--r-- | hieroglyph/version.h.in | 2 | ||||
| -rw-r--r-- | tests/ps/test-aload.ps | 11 | ||||
| -rw-r--r-- | tests/ps/test-anchorsearch.ps | 13 |
4 files changed, 29 insertions, 1 deletions
@@ -1,5 +1,9 @@ 2006-09-24 Akira TAGOH <at@gclab.org> + * tests/ps/test-aload.ps: new testcase. + + * tests/ps/test-anchorsearch.ps: new testcase. + * plugins/test/hg_unittest.ps (typecheck): new procedure to test if /typecheck happens. (.dotypecheck): new. diff --git a/hieroglyph/version.h.in b/hieroglyph/version.h.in index bd83461..66ebc31 100644 --- a/hieroglyph/version.h.in +++ b/hieroglyph/version.h.in @@ -29,7 +29,7 @@ G_BEGIN_DECLS #define HIEROGLYPH_VERSION "@VERSION@" -#define HIEROGLYPH_UUID "e1048e7d-163f-4345-a958-02c67140cd1a" +#define HIEROGLYPH_UUID "652e28e4-553b-488a-b118-30e78c1e4e13" const char *__hg_rcsid G_GNUC_UNUSED = "$Rev$"; diff --git a/tests/ps/test-aload.ps b/tests/ps/test-aload.ps new file mode 100644 index 0000000..c24bb64 --- /dev/null +++ b/tests/ps/test-aload.ps @@ -0,0 +1,11 @@ +initunittest + +true /aload [[/arraytype /proctype]] typecheck +false /aload [[/booleantype /integertype /realtype /nametype /stringtype /dicttype /nulltype /marktype /operatortype /marktype /filetype /savetype]] typecheck + +[] /stackunderflow true initunittestdict {aload} unittest +[1 2 3 [1 2 3]] null true initunittestdict {[1 2 3] aload} unittest +[23 (ab) -6 [23 (ab) -6]] null true initunittestdict {[23 (ab) -6] aload} unittest +[23 (ab) -6 {23 (ab) -6}] null true initunittestdict {{23 (ab) -6} aload} unittest + +unittestresult diff --git a/tests/ps/test-anchorsearch.ps b/tests/ps/test-anchorsearch.ps new file mode 100644 index 0000000..d58f740 --- /dev/null +++ b/tests/ps/test-anchorsearch.ps @@ -0,0 +1,13 @@ +initunittest + +true /anchorsearch [[/stringtype] dup] typecheck +false /anchorsearch [[/booleantype /integertype /realtype /nametype /arraytype /dicttype /nulltype /operatortype /marktype /filetype /savetype /proctype] dup] typecheck + +[] /stackunderflow true initunittestdict {anchorsearch} unittest +[(foo)] /stackunderflow true initunittestdict {(foo) anchorsearch} unittest +[(bc) (ab) true] null true initunittestdict {(abbc) (ab) anchorsearch} unittest +[(abbc) false] null true initunittestdict {(abbc) (bb) anchorsearch} unittest +[(abbc) false] null true initunittestdict {(abbc) (bc) anchorsearch} unittest +[(abbc) false] null true initunittestdict {(abbc) (B) anchorsearch} unittest + +unittestresult |