add failing unit test for new bug

cvs
Slava Pestov 2005-12-02 20:18:25 +00:00
parent 9df7d54982
commit ab015a2fe0
2 changed files with 9 additions and 1 deletions

View File

@ -14,7 +14,8 @@ word help sections:
parsing word sections:
- syntax
- sort out types on 64-bit platforms
- sort out types on 64-bit platforms -- on win64, long is 4 bytes,
on linux, 8
- malloc, free, realloc, memcpy: aliens
- check 'see'
- check interpreter unit test

View File

@ -196,3 +196,10 @@ TUPLE: delegating ;
[ t ] [ \ + 2generic? ] unit-test
[ "SYMBOL: not-a-class C: not-a-class ;" parse ] unit-test-fails
PREDICATE: word no-docs "documentation" word-prop not ;
UNION: no-docs-union no-docs integer ;
[ t ] [ no-docs no-docs-union class< ] unit-test
[ f ] [ no-docs-union no-docs class< ] unit-test