From f3085d9f8e43043617bc9c164ef9bfe214627015 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Fri, 30 May 2008 19:05:55 -0500 Subject: [PATCH] Add another failing test --- extra/db/tuples/tuples-tests.factor | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/extra/db/tuples/tuples-tests.factor b/extra/db/tuples/tuples-tests.factor index fa213efb2f..5ab52899da 100755 --- a/extra/db/tuples/tuples-tests.factor +++ b/extra/db/tuples/tuples-tests.factor @@ -429,8 +429,13 @@ subbclass "SUBCLASS" { { "b" "B" TEXT } } define-persistent +TUPLE: fubbclass < subbclass ; + +fubbclass "FUBCLASS" { } define-persistent + : test-db-inheritance ( -- ) [ ] [ subbclass ensure-table ] unit-test + [ ] [ fubbclass ensure-table ] unit-test [ ] [ subbclass new 5 >>a "hi" >>b dup insert-tuple id>> "id" set @@ -439,7 +444,11 @@ subbclass "SUBCLASS" { [ t "hi" 5 ] [ subbclass new "id" get >>id select-tuple [ subbclass? ] [ b>> ] [ a>> ] tri - ] unit-test ; + ] unit-test + + [ ] [ fubbclass new 0 >>a "hi" >>b insert-tuple ] unit-test + + [ t ] [ fubbclass new select-tuples [ fubbclass? ] all? ] unit-test ; [ test-db-inheritance ] test-sqlite