Add tests for more basic constructs

[dbsrgits/SQL-Abstract-2.0-ish.git] / t / 001_basic.t

diff --git a/t/001_basic.t b/t/001_basic.t
index ce0bb8f..2f009ba 100644 (file)
--- a/t/001_basic.t
+++ b/t/001_basic.t
@@ -1,7 +1,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 15;
+use Test::More tests => 18;
 use Test::Differences;
 
 use_ok('SQL::Abstract') or BAIL_OUT( "$@" );
@@ -12,6 +12,14 @@ is $sqla->dispatch( [ -name => qw/me id/]), "me.id",
   "Simple name generator";
 
 is $sqla->dispatch(
+  [ '-false' ]
+), "0 = 1", "false value";
+
+is $sqla->dispatch(
+  [ '-true' ]
+), "1 = 1", "true value";
+
+is $sqla->dispatch(
   [ -list => 
     [ -name => qw/me id/],
     [ -name => qw/me foo bar/],
@@ -42,6 +50,10 @@ is $sqla->dispatch(
 
 
 is $sqla->dispatch(
+  [ -in => [  ] ]
+), "0 = 1", "emtpy -in";
+
+is $sqla->dispatch(
   [ -where =>
       [ '>', [-name => qw/me id/], [-value => 500 ] ]
   ]