# Tests that;
#
-use Test::More tests => 78;
+use Test::More;
use Test::Exception;
use strict;
# Testing 1,2,3,4...
#=============================================================================
+plan tests => 89;
+
use SQL::Translator;
use SQL::Translator::Schema::Constants;
# Basic
my $tbl = $scma->get_table("Basic");
is $tbl->order, 1, "Basic->order";
-is_deeply( [map {$_->name} $tbl->get_fields],
- [qw/id title description email explicitnulldef explicitemptystring/] ,
- "Table Basic's fields");
+is_deeply( [map {$_->name} $tbl->get_fields], [qw/
+ id title description email explicitnulldef explicitemptystring singletagdef
+/] , "Table Basic's fields");
test_field($tbl->get_field("id"),{
name => "id",
order => 1,
default_value => "",
is_nullable => 1,
});
+test_field($tbl->get_field("singletagdef"),{
+ name => "singletagdef",
+ order => 7,
+ data_type => "varchar",
+ default_value => "",
+ is_nullable => 1,
+});
my @indices = $tbl->get_indices;
is scalar(@indices), 1, "Table basic has 1 index";