t/bindtype_columns.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More;
   5 use lib qw(t/lib);
   6 use DBICTest;
   7
   8 my $schema = DBICTest->init_schema();
   9
  10 plan tests => 2;
  11
  12 #Bindtest
  13 {
  14         my $new = $schema->resultset("Artist")->new({
  15
  16                 artistid=>25,
  17                 name=>'JohnNapiorkowski',
  18         });
  19
  20         $new->update_or_insert;
  21
  22         my $resultset = $schema->resultset("Artist")->find({artistid=>25});
  23
  24         is($resultset->id, 25, 'Testing New ID');
  25         is($resultset->name, 'JohnNapiorkowski', 'Testing New Name');
  26 }
  27