Moving tests to Test::More

[dbsrgits/SQL-Translator.git] / t / 06xsv.t

diff --git a/t/06xsv.t b/t/06xsv.t
index 39fc6fe..10aa09a 100644 (file)
--- a/t/06xsv.t
+++ b/t/06xsv.t
@@ -6,8 +6,9 @@
 use strict;
 use SQL::Translator;
 use SQL::Translator::Parser::xSV qw(parse);
+use Test::More;
 
-$SQL::Translator::DEBUG = 0;
+plan tests => 10;
 
 my $tr = SQL::Translator->new;
 my $data = q|One, Two, Three, Four, Five
@@ -15,44 +16,36 @@ I, Am, Some, Data, Yo
 And, So, am, I, "you crazy, crazy bastard"
 );|;
 
-BEGIN { print "1..10\n"; }
-
 my $val = parse($tr, $data);
 
 # $val holds the processed data structure.
 
 # The data structure should have one key:
-print "not " if (scalar keys %{$val} != 1);
-print "ok 1\n";
+is(scalar keys %{$val}, 1, "One table...");
 
 # The data structure should have a single key, named sessions
-print "not " unless (defined $val->{'table1'});
-print qq(ok 2 # has a key named "table1"\n);
+ok(defined $val->{'table1'} => "...named 'table1'");
 
 # $val->{'table1'} should have a single index (since we haven't
 # defined an index, but have defined a primary key)
 my $indices = $val->{'table1'}->{'indices'};
-print "not " unless (scalar @{$indices} == 1);
-print "ok 3 # correct index number\n";
+is(scalar @{$indices}, 1, "correct index number");
 
-print "not " unless ($indices->[0]->{'type'} eq 'primary_key');
-print "ok 4 # correct index type\n";
-print "not " unless ($indices->[0]->{'fields'}->[0] eq 'One');
-print "ok 5 # correct index name\n";
+is($indices->[0]->{'type'}, 'primary_key', "correct index type");
+is($indices->[0]->{'fields'}->[0], 'One', "correct index name");
 
 # $val->{'table1'} should have two fields, id and a_sessionn
 my $fields = $val->{'table1'}->{'fields'};
-print "not " unless (scalar keys %{$fields} == 5);
-print "ok 6 # correct number of fields (5)\n";
+is(scalar keys %{$fields} => 5 => "5 fields in %fields");
 
-print "not " unless ($fields->{'One'}->{'data_type'} eq 'char');
-print "ok 7 # correct field type: One (char)\n";
+is($fields->{'One'}->{'data_type'}, 'char',
+    "\$fields->{'One'}->{'data_type'} == 'char'");
 
-print "not " unless ($fields->{'One'}->{'is_primary_key'} == 1);
-print "ok 8 # correct key identification (One == key)\n";
+is($fields->{'One'}->{'is_primary_key'} => 1,
+    "\$fields->{'One'}->{'is_primary_key'} == 1");
 
-print "not " if (defined $fields->{'Two'}->{'is_primary_key'});
-print "ok 9 # correct key identification (Two != key)\n";
+ok(! defined $fields->{'Two'}->{'is_primary_key'},
+    "\$fields->{'Two'}->{'is_primary_key'} == 0");
 
 # Test that the order is being maintained by the internal order
 # data element
@@ -60,5 +53,4 @@ my @order = sort { $fields->{$a}->{'order'}
                              <=>
                    $fields->{$b}->{'order'}
                  } keys %{$fields};
-print "not " unless ($order[0] eq 'One' && $order[4] eq 'Five');
-print "ok 10 # ordering of fields\n";
+ok($order[0] eq 'One' && $order[4] eq 'Five', "Ordering OK");