X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=t%2F01basics.t;h=6fa0c1e1241f1b410004e797600bac45456cb800;hb=c6b94234b3a4b2a40760748538b3380c6c39b611;hp=fb795986427f19b8faebc773d75676a94c64b83d;hpb=b9aff7e76eab19b36abd670e6fc75a8a3d821324;p=maypole.git diff --git a/t/01basics.t b/t/01basics.t index fb79598..6fa0c1e 100644 --- a/t/01basics.t +++ b/t/01basics.t @@ -1,8 +1,8 @@ #!/usr/bin/perl -w use Test::More; -use lib 'ex'; # Where BeerDB should live +use lib 'examples'; # Where BeerDB should live BEGIN { - $ENV{BEERDB_DEBUG} = 2; + $ENV{BEERDB_DEBUG} = 0; eval { require BeerDB }; Test::More->import( skip_all => @@ -48,4 +48,5 @@ is ($classdata{related_accessors},'pubs','classdata.related_accessors'); # test Maypole::load_custom_class() can_ok(BeerDB::Beer => 'fooey'); # defined in BeerDB::Beer can_ok(BeerDB::Beer => 'floob'); # defined in BeerDB::Base -is_deeply( [@BeerDB::Beer::ISA], [qw/Maypole::Model::CDBI Class::DBI::SQLite BeerDB::Base/] ); + +is_deeply( [@BeerDB::Beer::ISA], [qw/Class::DBI::SQLite Maypole::Model::CDBI BeerDB::Base/] );