1use strict; 2use Test::More; 3 4BEGIN { 5 eval "use DBD::SQLite"; 6 plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 5); 7} 8 9use lib 't/testlib'; 10require Film; 11require Order; 12 13Film->has_many(orders => 'Order'); 14Order->has_a(film => 'Film'); 15 16Film->create_test_film; 17 18my $film = Film->retrieve('Bad Taste'); 19isa_ok $film => 'Film'; 20 21$film->add_to_orders({ orders => 10 }); 22 23my $bto = Order->search(film => 'Bad Taste')->first; 24isa_ok $bto => 'Order'; 25is $bto->orders, 10, "Correct number of orders"; 26 27 28my $infilm = $bto->film; 29isa_ok $infilm, "Film"; 30 31is $infilm->id, $film->id, "Orders hasa Film"; 32