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

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

diff --git a/t/examples/Schema/testdb.pl b/t/examples/Schema/testdb.pl
deleted file mode 100644 (file)
index 9ca3e39..0000000
--- a/t/examples/Schema/testdb.pl
+++ /dev/null
@@ -1,122 +0,0 @@
-#!/usr/bin/perl -w
-
-use MyDatabase::Main;
-use strict;
-
-my $schema = MyDatabase::Main->connect('dbi:SQLite:db/example.db');
-# for other DSNs, e.g. MySql, see the perldoc for the relevant dbd
-# driver, e.g perldoc L<DBD::mysql>.
-
-get_tracks_by_cd('Bad');
-get_tracks_by_artist('Michael Jackson');
-
-get_cd_by_track('Stan');
-get_cds_by_artist('Michael Jackson');
-
-get_artist_by_track('Dirty Diana');
-get_artist_by_cd('The Marshall Mathers LP');
-
-
-sub get_tracks_by_cd {
-    my $cdtitle = shift;
-    print "get_tracks_by_cd($cdtitle):\n";
-    my $rs = $schema->resultset('Track')->search(
-        {
-            'cd.title' => $cdtitle
-        },
-        {
-            join     => [qw/ cd /],
-        }
-    );
-    while (my $track = $rs->next) {
-        print $track->title . "\n";
-    }
-    print "\n";
-}
-
-sub get_tracks_by_artist {
-    my $artistname = shift;
-    print "get_tracks_by_artist($artistname):\n";
-    my $rs = $schema->resultset('Track')->search(
-        {
-            'artist.name' => $artistname
-        },
-        {
-            join => {
-                'cd' => 'artist'
-            },
-        }
-    );
-    while (my $track = $rs->next) {
-        print $track->title . "\n";
-    }
-    print "\n";
-}
-
-
-sub get_cd_by_track {
-    my $tracktitle = shift;
-    print "get_cd_by_track($tracktitle):\n";
-    my $rs = $schema->resultset('Cd')->search(
-        {
-            'tracks.title' => $tracktitle
-        },
-        {
-            join     => [qw/ tracks /],
-        }
-    );
-    my $cd = $rs->first;
-    print $cd->title . "\n\n";
-}
-
-sub get_cds_by_artist {
-    my $artistname = shift;
-    print "get_cds_by_artist($artistname):\n";
-    my $rs = $schema->resultset('Cd')->search(
-        {
-            'artist.name' => $artistname
-        },
-        {
-            join     => [qw/ artist /],
-        }
-    );
-    while (my $cd = $rs->next) {
-        print $cd->title . "\n";
-    }
-    print "\n";
-}
-
-
-
-sub get_artist_by_track {
-    my $tracktitle = shift;
-    print "get_artist_by_track($tracktitle):\n";
-    my $rs = $schema->resultset('Artist')->search(
-        {
-            'tracks.title' => $tracktitle
-        },
-        {
-            join => {
-                'cds' => 'tracks'
-            }
-        }
-    );
-    my $artist = $rs->first;
-    print $artist->name . "\n\n";
-}
-
-         
-sub get_artist_by_cd {
-    my $cdtitle = shift;
-    print "get_artist_by_cd($cdtitle):\n";
-    my $rs = $schema->resultset('Artist')->search(
-        {
-            'cds.title' => $cdtitle
-        },
-        {
-            join     => [qw/ cds /],
-        }
-    );
-    my $artist = $rs->first;
-    print $artist->name . "\n\n";
-}