~ubuntu-branches/ubuntu/precise/libtangram-perl/precise

« back to all changes in this revision

Viewing changes to t/springfield/04-tx.t

• browse files at revision 4
• compare with another revision
• download diff
• download tarball
• view history from revision 4

Show diffs side-by-side

added

removed

t/springfield/04-tx.t

 

1

 

 

2

 

 

3

use strict;

 

4

use lib 't/springfield';

 

5

use Springfield;

 

6

 

 

7

Springfield::begin_tests(4);

 

8

 

 

9

Springfield::connect_empty()->disconnect(); # init $no_tx

 

10

 

 

11

Springfield::tx_tests(4, sub {

 

12

 

 

13

{

 

14

   my $storage = Springfield::connect_empty;

 

15

   my $homer = NaturalPerson->new( firstName => 'Homer', name => 'Simpson' );

 

16

 

 

17

   Springfield::test( !defined $storage->id( $homer ) );

 

18

 

 

19

   eval

 

20

   {

 

21

      $storage->tx_do(

 

22

         sub

 

23

         {

 

24

            $storage->insert( $homer );

 

25

            Springfield::test( defined $storage->id( $homer ) );

 

26

            die;

 

27

         } );

 

28

   };

 

29

 

 

30

   Springfield::test( !defined $storage->id( $homer ) );

 

31

 

 

32

   $storage->disconnect();

 

33

}

 

34

 

 

35

Springfield::leaktest;

 

36

 

 

37

} ); # tx_tests

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1