t/cdbi/multi_column_set.t

   1 use strict;
   2 use Test::More;
   3
   4 BEGIN {
   5   eval "use DBIx::Class::CDBICompat;";
   6   plan $@ ? (skip_all => "Class::Trigger and DBIx::ContextualFetch required: $@")
   7           : (tests=> 3);
   8 }
   9
  10 {
  11     package Thing;
  12
  13     use base 'DBIx::Class::Test::SQLite';
  14
  15     Thing->columns(TEMP => qw[foo bar baz]);
  16     Thing->columns(All  => qw[some real stuff]);
  17 }
  18
  19 my $thing = Thing->construct({ foo => 23, some => 42, baz => 99 });
  20 $thing->set( foo => "wibble", some => "woosh" );
  21 is $thing->foo, "wibble";
  22 is $thing->some, "woosh";
  23 is $thing->baz, 99;
  24
  25 $thing->discard_changes;