First stab at restructuring with tests_recursive() - no functional changes

[dbsrgits/DBIx-Class.git] / t / examples / Schema / insertdb.pl

diff --git a/t/examples/Schema/insertdb.pl b/t/examples/Schema/insertdb.pl
deleted file mode 100644 (file)
index 6ce1ed9..0000000
--- a/t/examples/Schema/insertdb.pl
+++ /dev/null
@@ -1,59 +0,0 @@
-#!/usr/bin/perl -w
-
-use MyDatabase::Main;
-use strict;
-
-my $schema = MyDatabase::Main->connect('dbi:SQLite:db/example.db');
-
-#  here's some of the sql that is going to be generated by the schema
-#  INSERT INTO artist VALUES (NULL,'Michael Jackson');
-#  INSERT INTO artist VALUES (NULL,'Eminem');
-
-my @artists = (['Michael Jackson'], ['Eminem']);
-$schema->populate('Artist', [
-    [qw/name/],
-    @artists,
-]);
-
-my %albums = (
-    'Thriller' => 'Michael Jackson',
-    'Bad' => 'Michael Jackson',
-    'The Marshall Mathers LP' => 'Eminem',
-);
-
-my @cds;
-foreach my $lp (keys %albums) {
-    my $artist = $schema->resultset('Artist')->search({
-        name => $albums{$lp}
-    });
-    push @cds, [$lp, $artist->first];
-}
-
-$schema->populate('Cd', [
-    [qw/title artist/],
-    @cds,
-]);
-
-
-my %tracks = (
-    'Beat It'         => 'Thriller',
-    'Billie Jean'     => 'Thriller',
-    'Dirty Diana'     => 'Bad',
-    'Smooth Criminal' => 'Bad',
-    'Leave Me Alone'  => 'Bad',
-    'Stan'            => 'The Marshall Mathers LP',
-    'The Way I Am'    => 'The Marshall Mathers LP',
-);
-
-my @tracks;
-foreach my $track (keys %tracks) {
-    my $cdname = $schema->resultset('Cd')->search({
-        title => $tracks{$track},
-    });
-    push @tracks, [$cdname->first, $track];
-}
-
-$schema->populate('Track',[
-    [qw/cd title/],
-    @tracks,
-]);