X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=t%2F01basics.t;h=fb795986427f19b8faebc773d75676a94c64b83d;hb=abb63001d28afe34e807dbd4449feaded558c528;hp=87c964314a8cfa0e8e682e887e95132e229fb097;hpb=58c9595d95477fa806c7876aa7bf80d1908bd22d;p=maypole.git diff --git a/t/01basics.t b/t/01basics.t index 87c9643..fb79598 100644 --- a/t/01basics.t +++ b/t/01basics.t @@ -1,6 +1,6 @@ #!/usr/bin/perl -w use Test::More; -use lib '../ex'; # Where BeerDB should live +use lib 'ex'; # Where BeerDB should live BEGIN { $ENV{BEERDB_DEBUG} = 2; @@ -39,7 +39,7 @@ like ($classdata{cgi},qr/^HTML::Element/,'classdata.cgi'); is ($classdata{table},'beer','classdata.table'); is ($classdata{name},'BeerDB::Beer','classdata.name'); is ($classdata{colnames},'Abv','classdata.colnames'); -is($classdata{columns}, 'abv brewery id name notes price score style url', +is($classdata{columns}, 'abv brewery id name notes price score style tasted url', 'classdata.columns'); is($classdata{list_columns}, 'score name price style brewery url', 'classdata.list_columns');