← Back to branch summary

~ubuntu-branches/ubuntu/utopic/libhtml-formhandler-model-dbic-perl/utopic-proposed

« back to all changes in this revision

Viewing changes to t/book2pk.t

  • Committer: Package Import Robot
  • Author(s): Dominique Dumont, Salvatore Bonaccorso, Dominique Dumont
  • Date: 2013-10-13 18:35:48 UTC
  • mfrom: (1.1.2)
  • Revision ID: package-import@ubuntu.com-20131013183548-t4f9rp4ezb123ahk
Tags: 0.28-1
[ Salvatore Bonaccorso ]
* Change Vcs-Git to canonical URI (git://anonscm.debian.org)
* Change search.cpan.org based URIs to metacpan.org based URIs

[ Dominique Dumont ]
* Imported Upstream version 0.28
* bumped compat to 9
* control:
  * added version dep on libdbix-class-perl
  * bump std-version to 3.9.4
  + build-dep in libtest-exception-perl
* copyright: updated years

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/book2pk.t
 
1
use strict;
 
2
use warnings;
 
3
use Test::More;
 
4
use Test::Exception;
 
5
use lib 't/lib';
 
6
 
 
7
 
 
8
use_ok( 'BookDB::Form::Book2PK');
 
9
 
 
10
use_ok( 'BookDB::Schema');
 
11
 
 
12
my $schema = BookDB::Schema->connect('dbi:SQLite:t/db/book.db');
 
13
 
 
14
my $book = $schema->resultset('Book2PK')->find( { libraryid => 1, id => 1 }, { key => 'primary' });
 
15
my $form = BookDB::Form::Book2PK->new;
 
16
ok( $form );
 
17
 
 
18
$form->process( item => $book, params => {} );
 
19
my $params = $form->fif;
 
20
my $orig_pages = $params->{pages};
 
21
$params->{pages} = 500;
 
22
lives_ok( sub { $form->process( item => $book, params => $params ) }, 'multiple pk works' );
 
23
$book->discard_changes;
 
24
is( $book->pages, 500, 'pages changed' );
 
25
 
 
26
$params->{pages} = $orig_pages;
 
27
$form->process( item => $book, params => $params );
 
28
 
 
29
 
 
30
done_testing;