10 # perl -le'my $letter = 'a'; for my $i (4..10000) { $letter++; print "[ $i, \"$letter\" ]," }' > tests.txt
12 my $schema = DBICTest->init_schema();
13 $schema->populate('Artist', [
14 [ qw/artistid name/ ],
10014 ok(-f "t/var/DBIxClass.db", 'Database created');