All tests pass even if compiled with -DSQLITE_DEFAULT_FILE_FORMAT=1. (CVS 3308)

FossilOrigin-Name: 8a49311d2f50cf2ca24776cabcb8ec7418325cb1

test/types.test

@@ -12,7 +12,7 @@
 # it tests that the different storage classes (integer, real, text etc.)
 # all work correctly.
 #
-# $Id: types.test,v 1.18 2006/01/06 22:11:21 drh Exp $
+# $Id: types.test,v 1.19 2006/06/27 12:51:13 drh Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
@@ -205,11 +205,18 @@ do_test types-2.1.8 {
         9000000000000000000 -9000000000000000000]
 
 # Check that all the record sizes are as we expected.
-do_test types-2.1.9 {
-  set root [db eval {select rootpage from sqlite_master where name = 't1'}]
-  record_sizes $root
-} {2 3 3 4 4 6 6 10 10}
-
+ifcapable legacyformat {
+  do_test types-2.1.9 {
+    set root [db eval {select rootpage from sqlite_master where name = 't1'}]
+    record_sizes $root
+  } {3 3 3 4 4 6 6 10 10}
+} else {
+  do_test types-2.1.9 {
+    set root [db eval {select rootpage from sqlite_master where name = 't1'}]
+    record_sizes $root
+  } {2 3 3 4 4 6 6 10 10}
+}
+  
 # Insert some reals. These should be 10 byte records.
 do_test types-2.2.1 {
   execsql {
@@ -226,11 +233,18 @@ do_test types-2.2.2 {
 } {0.0 12345.678 -12345.678}
 
 # Check that all the record sizes are as we expected.
-do_test types-2.2.3 {
-  set root [db eval {select rootpage from sqlite_master where name = 't2'}]
-  record_sizes $root
-} {2 10 10}
-
+ifcapable legacyformat {
+  do_test types-2.2.3 {
+    set root [db eval {select rootpage from sqlite_master where name = 't2'}]
+    record_sizes $root
+  } {3 10 10}
+} else {
+  do_test types-2.2.3 {
+    set root [db eval {select rootpage from sqlite_master where name = 't2'}]
+    record_sizes $root
+  } {2 10 10}
+}
+  
 # Insert a NULL. This should be a two byte record.
 do_test types-2.3.1 {
   execsql {