X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fcdbi%2F15-accessor.t;h=39330e36fdd2e58fefeeb0c2981d2657e7b3f78e;hb=1db83fb9ce3e15d68e2384720ed06af6de5edbac;hp=3419cf03aa41628bf09307b29a71463c29acac71;hpb=9381840da8471c9a17a0b641c99fd0b57178b839;p=dbsrgits%2FDBIx-Class-Historic.git diff --git a/t/cdbi/15-accessor.t b/t/cdbi/15-accessor.t index 3419cf0..39330e3 100644 --- a/t/cdbi/15-accessor.t +++ b/t/cdbi/15-accessor.t @@ -5,10 +5,8 @@ BEGIN { eval "use DBIx::Class::CDBICompat;"; if ($@) { plan (skip_all => 'Class::Trigger and DBIx::ContextualFetch required'); - next; } - eval "use DBD::SQLite"; - plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 75); + plan tests => 75; } INIT { @@ -83,7 +81,7 @@ eval { my $data = { %$data }; $data->{NumExplodingSheep} = 1; ok my $bt = Film->find_or_create($data), - "find_or_create Modified accessor - find with column name"; + "find_or_create Modified accessor - find with column name"; isa_ok $bt, "Film"; is $bt->sheep, 1, 'sheep bursting violently'; }; @@ -93,7 +91,7 @@ eval { my $data = { %$data }; $data->{sheep} = 1; ok my $bt = Film->find_or_create($data), - "find_or_create Modified accessor - find with accessor"; + "find_or_create Modified accessor - find with accessor"; isa_ok $bt, "Film"; is $bt->sheep, 1, 'sheep bursting violently'; }; @@ -104,7 +102,7 @@ eval { my $data = { %$data }; $data->{NumExplodingSheep} = 3; ok my $bt = Film->find_or_create($data), - "find_or_create Modified accessor - create with column name"; + "find_or_create Modified accessor - create with column name"; isa_ok $bt, "Film"; is $bt->sheep, 3, 'sheep bursting violently'; }; @@ -114,7 +112,7 @@ eval { my $data = { %$data }; $data->{sheep} = 4; ok my $bt = Film->find_or_create($data), - "find_or_create Modified accessor - create with accessor"; + "find_or_create Modified accessor - create with accessor"; isa_ok $bt, "Film"; is $bt->sheep, 4, 'sheep bursting violently'; };