t/105view_deps.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More;
   7 use Test::Exception;
   8 use lib qw(t/lib);
   9 use ViewDeps;
  10 use ViewDepsBad;
  11
  12 BEGIN {
  13     use_ok('DBIx::Class::ResultSource::View');
  14 }
  15
  16 #################### SANITY
  17
  18 my $view = DBIx::Class::ResultSource::View->new;
  19
  20 isa_ok( $view, 'DBIx::Class::ResultSource', 'A new view' );
  21 isa_ok( $view, 'DBIx::Class', 'A new view also' );
  22
  23 can_ok( $view, $_ ) for qw/new from deploy_depends_on/;
  24
  25 #################### DEPS
  26
  27 my $schema
  28     = ViewDeps->connect( 'dbi:SQLite::memory:', { quote_char => '"', } );
  29 ok( $schema, 'Connected to ViewDeps schema OK' );
  30
  31 #################### DEPLOY
  32
  33 $schema->deploy( { add_drop_table => 1 } );
  34
  35 #################### DOES ORDERING WORK?
  36
  37 my $sqlt_object = $schema->{sqlt};
  38
  39 my @keys = keys %{ $sqlt_object->{views} };
  40
  41 my @sqlt_sources = sort {
  42     $sqlt_object->{views}->{$a}->{order}
  43         cmp $sqlt_object->{views}->{$b}->{order}
  44 } @keys;
  45
  46 my @expected
  47     = qw/a_name_artists track_number_fives year_2010_cds ab_name_artists year_2010_cds_with_many_tracks aba_name_artists aba_name_artists_and_2010_cds_with_many_tracks/;
  48
  49 is_deeply( \@expected, \@sqlt_sources,
  50     "SQLT view order triumphantly matches our order." );
  51
  52 #################### AND WHAT ABOUT USING THE SCHEMA?
  53
  54 lives_ok( sub { $schema->resultset($_)->next }, "Query on $_ succeeds" )
  55     for grep {
  56     $schema->resultset($_)
  57         ->result_source->isa('DBIx::Class::ResultSource::View')
  58     } @{ [ $schema->sources ] };
  59
  60 #################### AND WHAT ABOUT A BAD DEPS CHAIN IN A VIEW?
  61
  62 my $schema2
  63     = ViewDepsBad->connect( 'dbi:SQLite::memory:', { quote_char => '"', } );
  64 ok( $schema2, 'Connected to ViewDepsBad schema OK' );
  65
  66 #################### DEPLOY2
  67
  68 $schema2->deploy( { add_drop_table => 1 } );
  69
  70 #################### DOES ORDERING WORK 2?
  71
  72 my $sqlt_object2 = $schema2->{sqlt};
  73
  74 my @keys2 = keys %{ $sqlt_object->{views} };
  75
  76 my @sqlt_sources2 = sort {
  77     $sqlt_object->{views}->{$a}->{order}
  78         cmp $sqlt_object->{views}->{$b}->{order}
  79 } @keys2;
  80
  81 my @expected2
  82     = qw/a_name_artists track_number_fives year_2010_cds ab_name_artists year_2010_cds_with_many_tracks aba_name_artists aba_name_artists_and_2010_cds_with_many_tracks/;
  83
  84 is_deeply( \@expected2, \@sqlt_sources2,
  85     "SQLT view order triumphantly matches our order." );
  86
  87 #################### AND WHAT ABOUT USING THE SCHEMA2?
  88
  89 lives_ok( sub { $schema2->resultset($_)->next }, "Query on $_ succeeds" )
  90     for grep {
  91     $schema2->resultset($_)
  92         ->result_source->isa('DBIx::Class::ResultSource::View')
  93     } grep { !/AbaNameArtistsAnd2010CDsWithManyTracks/ }
  94     @{ [ $schema2->sources ] };
  95
  96 dies_ok(
  97     sub {
  98         $schema2->resultset('AbaNameArtistsAnd2010CDsWithManyTracks')->next;
  99     },
 100     "Query on AbaNameArtistsAnd2010CDsWithManyTracks fails, because of incorrect deploy_depends_on in AbaNameArtists"
 101 );
 102
 103 done_testing;