IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Changeset 12960


Ignore:
Timestamp:
Apr 23, 2007, 10:42:29 AM (19 years ago)
Author:
jhoblitt
Message:

ws
add the use of Test::URI in tests

Location:
trunk
Files:
9 edited

Legend:

Unmodified
Added
Removed

  • trunk/Nebulous-Server/Build.PL

    r12580 r12960  
    9797        'File::Temp'            => 0,
    9898        'Test::More'            => '0.49',
     99        'Test::URI'             => '1.06',
    99100    },
    100101    recommends          => {

  • trunk/Nebulous-Server/t/03_server_create_object.t

    r10546 r12960  
    33# Copryight (C) 2004-2005  Joshua Hoblitt
    44#
    5 # $Id: 03_server_create_object.t,v 1.11 2006-12-08 03:29:19 jhoblitt Exp $
     5# $Id: 03_server_create_object.t,v 1.12 2007-04-23 20:42:29 jhoblitt Exp $
    66
    77use strict;
    … …  
    1515use Nebulous::Util qw( :standard );
    1616use Test::Nebulous;
     17use Test::URI;
     18use URI::Split qw( uri_split );
    1719
    1820my $neb = Nebulous::Server->new(
    … …  
    2628{
    2729    # key
    28     my $uri = $neb->create_object( "foo" );
     30    my $uri = $neb->create_object("foo");
    2931
    30     ok( -e _get_file_path( $uri ), "file exists" );
    31     like( $uri, qr/^file:\//, "valid URI" );
     32    my ($scheme, $auth, $path, $query, $frag) = uri_split($uri);
     33    ok(-e $path, "file exists");
     34    uri_scheme_ok($uri, 'file');
    3235}
    3336
    … …  
    3639{
    3740    # key, class
    38     my $uri = $neb->create_object( "foo", 0 );
     41    my $uri = $neb->create_object("foo", 0);
    3942
    40     ok( -e _get_file_path( $uri ), "file exists" );
    41     like( $uri, qr/^file:\//, "valid URI" );
     43    my ($scheme, $auth, $path, $query, $frag) = uri_split($uri);
     44    ok(-e $path, "file exists");
     45    uri_scheme_ok($uri, 'file');
    4246}
    4347
    … …  
    4650{
    4751    # key, class, volume
    48     my $uri = $neb->create_object( "foo", 0, "node01" );
     52    my $uri = $neb->create_object("foo", 0, "node01");
    4953
    50     ok( -e _get_file_path( $uri ), "file exists" );
    51     like( $uri, qr/^file:\//, "valid URI" );
     54    my ($scheme, $auth, $path, $query, $frag) = uri_split($uri);
     55    ok(-e $path, "file exists");
     56    uri_scheme_ok($uri, 'file');
    5257}
    5358
    … …  
    5661{
    5762    # key, class, volume, comment
    58     my $uri = $neb->create_object( "foo", 0, "node01", "this is foo" );
     63    my $uri = $neb->create_object("foo", 0, "node01", "this is foo");
    5964
    60     ok( -e _get_file_path( $uri ), "file exists" );
    61     like( $uri, qr/^file:\//, "valid URI" );
     65    my ($scheme, $auth, $path, $query, $frag) = uri_split($uri);
     66    ok(-e $path, "file exists");
     67    uri_scheme_ok($uri, 'file');
    6268}
    6369
    … …  
    6571
    6672eval {
    67     $neb->create_object( "foo" );
    68     $neb->create_object( "foo" );
     73    $neb->create_object("foo");
     74    $neb->create_object("foo");
    6975};
    70 like( $@, qr/Duplicate entry/, "object already exists" );
     76like($@, qr/Duplicate entry/, "object already exists");
    7177
    7278Test::Nebulous->setup;
    7379
    7480{
    75     my $uri = $neb->create_object( "foo", 1 );
     81    my $uri = $neb->create_object("foo", 1);
    7682
    77     ok( -e _get_file_path( $uri ), "class exists" );
     83    my ($scheme, $auth, $path, $query, $frag) = uri_split($uri);
     84    ok(-e $path, "class exists");
    7885}
    7986
    … …  
    8188
    8289eval {
    83     $neb->create_object( "foo", 99 );
     90    $neb->create_object("foo", 99);
    8491};
    85 like( $@, qr/did not pass the \'is valid class id\'/, "class doesn't exist" );
     92like($@, qr/did not pass the \'is valid class id\'/, "class doesn't exist");
    8693
    8794Test::Nebulous->setup;
    8895
    8996eval {
    90     $neb->create_object( 1, 0, 'node01', 'x' x 256 );
     97    $neb->create_object(1, 0, 'node01', 'x' x 256);
    9198};
    92 like( $@, qr/comment length/, "comment is too long" );
     99like($@, qr/comment length/, "comment is too long");
    93100
    94101Test::Nebulous->setup;
    … …  
    97104    $neb->create_object();
    98105};
    99 like( $@, qr/2 - 4 were expected/, "no params" );
     106like($@, qr/2 - 4 were expected/, "no params");
    100107
    101108Test::Nebulous->setup;
    … …  
    104111    $neb->create_object( 1, 0, 'node01', 1, 1 );
    105112};
    106 like( $@, qr/2 - 4 were expected/, "too many params" );
     113like($@, qr/2 - 4 were expected/, "too many params");
    107114
    108115Test::Nebulous->cleanup;

  • trunk/Nebulous-Server/t/04_server_replicate_object.t

    r10546 r12960  
    33# Copryight (C) 2004-2005  Joshua Hoblitt
    44#
    5 # $Id: 04_server_replicate_object.t,v 1.6 2006-12-08 03:29:19 jhoblitt Exp $
     5# $Id: 04_server_replicate_object.t,v 1.7 2007-04-23 20:42:29 jhoblitt Exp $
    66
    77use strict;
    … …  
    1515use Nebulous::Util qw( :standard );
    1616use Test::Nebulous;
     17use Test::URI;
     18use URI::Split qw( uri_split );
    1719
    1820my $neb = Nebulous::Server->new(
    … …  
    2628{
    2729    # key
    28     $neb->create_object( "foo" );
    29     my $uri = $neb->replicate_object( "foo" );
     30    $neb->create_object("foo");
     31    my $uri = $neb->replicate_object("foo");
    3032
    31     ok( -e _get_file_path( $uri ), "file exists" );
    32     like( $uri, qr/^file:\//, "valid URI" );
     33    my ($scheme, $auth, $path, $query, $frag) = uri_split($uri);
     34    ok(-e $path, "file exists");
     35    uri_scheme_ok($uri, 'file');
    3336}
    3437
    … …  
    3740{
    3841    # key, $volume
    39     $neb->create_object( "foo" );
    40     my $uri = $neb->replicate_object( "foo", "node01" );
     42    $neb->create_object("foo");
     43    my $uri = $neb->replicate_object("foo", "node01");
    4144
    42     ok( -e _get_file_path( $uri ), "file exists" );
    43     like( $uri, qr/^file:\//, "valid URI" );
     45    my ($scheme, $auth, $path, $query, $frag) = uri_split($uri);
     46    ok(-e $path, "file exists");
     47    uri_scheme_ok($uri, 'file');
    4448}
    4549
    … …  
    4852{
    4953    # key, $volume
    50     $neb->create_object( "foo" );
    51     my $uri1 = $neb->replicate_object( "foo", "node01" );
    52     my $uri2 = $neb->replicate_object( "foo", "node02" );
     54    $neb->create_object("foo");
     55    my $uri1 = $neb->replicate_object("foo", "node01");
     56    my $uri2 = $neb->replicate_object("foo", "node02");
    5357
    54     ok( -e _get_file_path( $uri1 ), "file exists" );
    55     ok( -e _get_file_path( $uri2 ), "file exists" );
    56     like( $uri1, qr/^file:\//, "valid URI" );
    57     like( $uri2, qr/^file:\//, "valid URI" );
     58    {
     59        my ($scheme, $auth, $path, $query, $frag) = uri_split($uri1);
     60        ok(-e $path, "file exists");
     61        uri_scheme_ok($uri1, 'file');
     62    }
     63
     64    {
     65        my ($scheme, $auth, $path, $query, $frag) = uri_split($uri2);
     66        ok(-e $path, "file exists");
     67        uri_scheme_ok($uri2, 'file');
     68    }
    5869}
    5970
    … …  
    6172
    6273eval {
    63     $neb->replicate_object( "foo" );
     74    $neb->replicate_object("foo");
    6475};
    65 like( $@, qr/storage object does not exist/, "storage object does not exist" );
     76like($@, qr/storage object does not exist/, "storage object does not exist");
    6677
    6778Test::Nebulous->setup;
    … …  
    7081    $neb->replicate_object();
    7182};
    72 like( $@, qr/1 - 2 were expected/, "no params" );
     83like($@, qr/1 - 2 were expected/, "no params");
    7384
    7485Test::Nebulous->setup;
    7586
    7687eval {
    77     $neb->replicate_object( 1, 2, 3 );
     88    $neb->replicate_object(1, 2, 3);
    7889};
    79 like( $@, qr/1 - 2 were expected/, "too many params" );
     90like($@, qr/1 - 2 were expected/, "too many params");
    8091
    8192Test::Nebulous->cleanup;

  • trunk/Nebulous/Build.PL

    r12580 r12960  
    9797        'File::Temp'            => 0,
    9898        'Test::More'            => '0.49',
     99        'Test::URI'             => '1.06',
    99100    },
    100101    recommends          => {

  • trunk/Nebulous/t/03_server_create_object.t

    r10546 r12960  
    33# Copryight (C) 2004-2005  Joshua Hoblitt
    44#
    5 # $Id: 03_server_create_object.t,v 1.11 2006-12-08 03:29:19 jhoblitt Exp $
     5# $Id: 03_server_create_object.t,v 1.12 2007-04-23 20:42:29 jhoblitt Exp $
    66
    77use strict;
    … …  
    1515use Nebulous::Util qw( :standard );
    1616use Test::Nebulous;
     17use Test::URI;
     18use URI::Split qw( uri_split );
    1719
    1820my $neb = Nebulous::Server->new(
    … …  
    2628{
    2729    # key
    28     my $uri = $neb->create_object( "foo" );
     30    my $uri = $neb->create_object("foo");
    2931
    30     ok( -e _get_file_path( $uri ), "file exists" );
    31     like( $uri, qr/^file:\//, "valid URI" );
     32    my ($scheme, $auth, $path, $query, $frag) = uri_split($uri);
     33    ok(-e $path, "file exists");
     34    uri_scheme_ok($uri, 'file');
    3235}
    3336
    … …  
    3639{
    3740    # key, class
    38     my $uri = $neb->create_object( "foo", 0 );
     41    my $uri = $neb->create_object("foo", 0);
    3942
    40     ok( -e _get_file_path( $uri ), "file exists" );
    41     like( $uri, qr/^file:\//, "valid URI" );
     43    my ($scheme, $auth, $path, $query, $frag) = uri_split($uri);
     44    ok(-e $path, "file exists");
     45    uri_scheme_ok($uri, 'file');
    4246}
    4347
    … …  
    4650{
    4751    # key, class, volume
    48     my $uri = $neb->create_object( "foo", 0, "node01" );
     52    my $uri = $neb->create_object("foo", 0, "node01");
    4953
    50     ok( -e _get_file_path( $uri ), "file exists" );
    51     like( $uri, qr/^file:\//, "valid URI" );
     54    my ($scheme, $auth, $path, $query, $frag) = uri_split($uri);
     55    ok(-e $path, "file exists");
     56    uri_scheme_ok($uri, 'file');
    5257}
    5358
    … …  
    5661{
    5762    # key, class, volume, comment
    58     my $uri = $neb->create_object( "foo", 0, "node01", "this is foo" );
     63    my $uri = $neb->create_object("foo", 0, "node01", "this is foo");
    5964
    60     ok( -e _get_file_path( $uri ), "file exists" );
    61     like( $uri, qr/^file:\//, "valid URI" );
     65    my ($scheme, $auth, $path, $query, $frag) = uri_split($uri);
     66    ok(-e $path, "file exists");
     67    uri_scheme_ok($uri, 'file');
    6268}
    6369
    … …  
    6571
    6672eval {
    67     $neb->create_object( "foo" );
    68     $neb->create_object( "foo" );
     73    $neb->create_object("foo");
     74    $neb->create_object("foo");
    6975};
    70 like( $@, qr/Duplicate entry/, "object already exists" );
     76like($@, qr/Duplicate entry/, "object already exists");
    7177
    7278Test::Nebulous->setup;
    7379
    7480{
    75     my $uri = $neb->create_object( "foo", 1 );
     81    my $uri = $neb->create_object("foo", 1);
    7682
    77     ok( -e _get_file_path( $uri ), "class exists" );
     83    my ($scheme, $auth, $path, $query, $frag) = uri_split($uri);
     84    ok(-e $path, "class exists");
    7885}
    7986
    … …  
    8188
    8289eval {
    83     $neb->create_object( "foo", 99 );
     90    $neb->create_object("foo", 99);
    8491};
    85 like( $@, qr/did not pass the \'is valid class id\'/, "class doesn't exist" );
     92like($@, qr/did not pass the \'is valid class id\'/, "class doesn't exist");
    8693
    8794Test::Nebulous->setup;
    8895
    8996eval {
    90     $neb->create_object( 1, 0, 'node01', 'x' x 256 );
     97    $neb->create_object(1, 0, 'node01', 'x' x 256);
    9198};
    92 like( $@, qr/comment length/, "comment is too long" );
     99like($@, qr/comment length/, "comment is too long");
    93100
    94101Test::Nebulous->setup;
    … …  
    97104    $neb->create_object();
    98105};
    99 like( $@, qr/2 - 4 were expected/, "no params" );
     106like($@, qr/2 - 4 were expected/, "no params");
    100107
    101108Test::Nebulous->setup;
    … …  
    104111    $neb->create_object( 1, 0, 'node01', 1, 1 );
    105112};
    106 like( $@, qr/2 - 4 were expected/, "too many params" );
     113like($@, qr/2 - 4 were expected/, "too many params");
    107114
    108115Test::Nebulous->cleanup;

  • trunk/Nebulous/t/04_server_replicate_object.t

    r10546 r12960  
    33# Copryight (C) 2004-2005  Joshua Hoblitt
    44#
    5 # $Id: 04_server_replicate_object.t,v 1.6 2006-12-08 03:29:19 jhoblitt Exp $
     5# $Id: 04_server_replicate_object.t,v 1.7 2007-04-23 20:42:29 jhoblitt Exp $
    66
    77use strict;
    … …  
    1515use Nebulous::Util qw( :standard );
    1616use Test::Nebulous;
     17use Test::URI;
     18use URI::Split qw( uri_split );
    1719
    1820my $neb = Nebulous::Server->new(
    … …  
    2628{
    2729    # key
    28     $neb->create_object( "foo" );
    29     my $uri = $neb->replicate_object( "foo" );
     30    $neb->create_object("foo");
     31    my $uri = $neb->replicate_object("foo");
    3032
    31     ok( -e _get_file_path( $uri ), "file exists" );
    32     like( $uri, qr/^file:\//, "valid URI" );
     33    my ($scheme, $auth, $path, $query, $frag) = uri_split($uri);
     34    ok(-e $path, "file exists");
     35    uri_scheme_ok($uri, 'file');
    3336}
    3437
    … …  
    3740{
    3841    # key, $volume
    39     $neb->create_object( "foo" );
    40     my $uri = $neb->replicate_object( "foo", "node01" );
     42    $neb->create_object("foo");
     43    my $uri = $neb->replicate_object("foo", "node01");
    4144
    42     ok( -e _get_file_path( $uri ), "file exists" );
    43     like( $uri, qr/^file:\//, "valid URI" );
     45    my ($scheme, $auth, $path, $query, $frag) = uri_split($uri);
     46    ok(-e $path, "file exists");
     47    uri_scheme_ok($uri, 'file');
    4448}
    4549
    … …  
    4852{
    4953    # key, $volume
    50     $neb->create_object( "foo" );
    51     my $uri1 = $neb->replicate_object( "foo", "node01" );
    52     my $uri2 = $neb->replicate_object( "foo", "node02" );
     54    $neb->create_object("foo");
     55    my $uri1 = $neb->replicate_object("foo", "node01");
     56    my $uri2 = $neb->replicate_object("foo", "node02");
    5357
    54     ok( -e _get_file_path( $uri1 ), "file exists" );
    55     ok( -e _get_file_path( $uri2 ), "file exists" );
    56     like( $uri1, qr/^file:\//, "valid URI" );
    57     like( $uri2, qr/^file:\//, "valid URI" );
     58    {
     59        my ($scheme, $auth, $path, $query, $frag) = uri_split($uri1);
     60        ok(-e $path, "file exists");
     61        uri_scheme_ok($uri1, 'file');
     62    }
     63
     64    {
     65        my ($scheme, $auth, $path, $query, $frag) = uri_split($uri2);
     66        ok(-e $path, "file exists");
     67        uri_scheme_ok($uri2, 'file');
     68    }
    5869}
    5970
    … …  
    6172
    6273eval {
    63     $neb->replicate_object( "foo" );
     74    $neb->replicate_object("foo");
    6475};
    65 like( $@, qr/storage object does not exist/, "storage object does not exist" );
     76like($@, qr/storage object does not exist/, "storage object does not exist");
    6677
    6778Test::Nebulous->setup;
    … …  
    7081    $neb->replicate_object();
    7182};
    72 like( $@, qr/1 - 2 were expected/, "no params" );
     83like($@, qr/1 - 2 were expected/, "no params");
    7384
    7485Test::Nebulous->setup;
    7586
    7687eval {
    77     $neb->replicate_object( 1, 2, 3 );
     88    $neb->replicate_object(1, 2, 3);
    7889};
    79 like( $@, qr/1 - 2 were expected/, "too many params" );
     90like($@, qr/1 - 2 were expected/, "too many params");
    8091
    8192Test::Nebulous->cleanup;

  • trunk/Nebulous/t/51_client_create.t

    r5667 r12960  
    33# Copryight (C) 2004-2005  Joshua Hoblitt
    44#
    5 # $Id: 51_client_create.t,v 1.1 2005-12-03 02:52:31 jhoblitt Exp $
     5# $Id: 51_client_create.t,v 1.2 2007-04-23 20:42:29 jhoblitt Exp $
    66
    77use strict;
    … …  
    1010use Apache::Test qw( -withtestmore );
    1111
    12 plan tests => 7;
     12plan tests => 11;
    1313
    1414use lib qw( ./t ./lib );
    1515
     16#use Nebulous::Client trace => 'debug';
    1617use Nebulous::Client;
    17 use Nebulous::Util qw( :standard );
    1818use Test::Nebulous;
     19use Test::URI;
     20use URI::Split qw( uri_split );
    1921
    2022my $hostport = Apache::Test->config->{ 'hostport' };
    … …  
    2830    );
    2931
    30     my $filename = $neb->create( "foo" );
     32    my $uri = $neb->create("foo");
    3133
    32     ok( -e $filename, "good filename" );
     34    my ($scheme, $auth, $path, $query, $frag) = uri_split($uri);
     35    ok(-e $path, "good filename");
     36    uri_scheme_ok($uri, 'file');
    3337}
    3438
    … …  
    4145    );
    4246
    43     my $filename = $neb->create( "foo", 0 );
     47    my $uri = $neb->create("foo", 0);
    4448
    45     ok( -e $filename, "good filename" );
     49    my ($scheme, $auth, $path, $query, $frag) = uri_split($uri);
     50    ok(-e $path, "good filename");
     51    uri_scheme_ok($uri, 'file');
    4652}
    4753
    … …  
    5460    );
    5561
    56     my $filename = $neb->create( "foo", 0, "node01" );
     62    my $uri = $neb->create("foo", 0, "node01");
    5763
    58     ok( -e $filename, "good filename" );
     64    my ($scheme, $auth, $path, $query, $frag) = uri_split($uri);
     65    ok(-e $path, "good filename");
     66    uri_scheme_ok($uri, 'file');
    5967}
    6068
    … …  
    6775    );
    6876
    69     my $filename = $neb->create( "foo", 0, "node01", "this is foo" );
     77    my $uri = $neb->create("foo", 0, "node01", "this is foo");
    7078
    71     ok( -e $filename, "good filename" );
     79    my ($scheme, $auth, $path, $query, $frag) = uri_split($uri);
     80    ok(-e $path, "good filename");
     81    uri_scheme_ok($uri, 'file');
    7282}
    7383
    … …  
    7989    );
    8090
    81     $neb->create( "foo" );
    82     is( $neb->create( "foo" ), undef, "object already exists" );
     91    $neb->create("foo");
     92    is($neb->create("foo"), undef, "object already exists");
    8393}
    8494
    … …  
    92102    $neb->create();
    93103};
    94 like( $@, qr/2 - 4 were expected/, "no params" );
     104like($@, qr/2 - 4 were expected/, "no params");
    95105
    96106Test::Nebulous->setup;
    … …  
    101111    );
    102112
    103     $neb->create( 1, 2, 3, 4, 5 );
     113    $neb->create(1, 2, 3, 4, 5);
    104114};
    105 like( $@, qr/2 - 4 were expected/, "too many params" );
     115like($@, qr/2 - 4 were expected/, "too many params");
    106116
    107117Test::Nebulous->cleanup;

  • trunk/Nebulous/t/51_client_open_create.t

    r5667 r12960  
    33# Copryight (C) 2004-2005  Joshua Hoblitt
    44#
    5 # $Id: 51_client_open_create.t,v 1.1 2005-12-03 02:52:31 jhoblitt Exp $
     5# $Id: 51_client_open_create.t,v 1.2 2007-04-23 20:42:29 jhoblitt Exp $
    66
    77use strict;
    … …  
    1414use lib qw( ./t ./lib );
    1515
     16#use Nebulous::Client trace => 'debug';
    1617use Nebulous::Client;
    17 use Nebulous::Util qw( :standard );
    1818use Test::Nebulous;
    1919
    … …  
    2828    );
    2929
    30     my $fh = $neb->open_create( "foo" );
     30    my $fh = $neb->open_create("foo");
    3131
    32     is( ref $fh, 'GLOB', "good filehandle" );
     32    is(ref $fh, 'GLOB', "good filehandle");
    3333}
    3434
    … …  
    4343    my $fh = $neb->open_create( "foo", 0 );
    4444
    45     is( ref $fh, 'GLOB', "good filehandle" );
     45    is(ref $fh, 'GLOB', "good filehandle");
    4646}
    4747
    … …  
    5454    );
    5555
    56     my $fh = $neb->open_create( "foo", 0, "node01" );
     56    my $fh = $neb->open_create("foo", 0, "node01");
    5757
    58     is( ref $fh, 'GLOB', "good filehandle" );
     58    is(ref $fh, 'GLOB', "good filehandle");
    5959}
    6060
    … …  
    6767    );
    6868
    69     my $fh = $neb->open_create( "foo", 0, "node01", "this is foo" );
     69    my $fh = $neb->open_create("foo", 0, "node01", "this is foo");
    7070
    71     is( ref $fh, 'GLOB', "good filehandle" );
     71    is(ref $fh, 'GLOB', "good filehandle");
    7272}
    7373
    … …  
    7979    );
    8080
    81     $neb->open_create( "foo" );
    82     is( $neb->open_create( "foo" ), undef, "object already exists" );
     81    $neb->open_create("foo");
     82    is($neb->open_create("foo"), undef, "object already exists");
    8383}
    8484
    … …  
    9292    $neb->open_create();
    9393};
    94 like( $@, qr/2 - 4 were expected/, "no params" );
     94like($@, qr/2 - 4 were expected/, "no params");
    9595
    9696Test::Nebulous->setup;
    … …  
    101101    );
    102102
    103     $neb->open_create( 1, 2, 3, 4, 5 );
     103    $neb->open_create(1, 2, 3, 4, 5);
    104104};
    105 like( $@, qr/2 - 4 were expected/, "too many params" );
     105like($@, qr/2 - 4 were expected/, "too many params");
    106106
    107107Test::Nebulous->cleanup;

  • trunk/Nebulous/t/Test/Nebulous.pm

    r5497 r12960  
    11# Copyright (C) 2004  Joshua Hoblitt
    22#
    3 # $Id: Nebulous.pm,v 1.8 2005-11-10 21:30:32 jhoblitt Exp $
     3# $Id: Nebulous.pm,v 1.9 2007-04-23 20:42:29 jhoblitt Exp $
    44
    55package Test::Nebulous;
    … …  
    3737
    3838    # FIXME
    39     $dbh->do( qq{ INSERT INTO volume VALUES (1,'node01',?) }, undef, 'file:' . $dir1 );
    40     $dbh->do( qq{ INSERT INTO volume VALUES (2,'node02',?) }, undef, 'file:' . $dir2 );
     39    $dbh->do(qq{ INSERT INTO volume VALUES (1,'node01',?) }, undef, $dir1);
     40    $dbh->do(qq{ INSERT INTO mount VALUES (?, 10e10, 10e7) }, undef, $dir1);
    4141
    42     $dbh->do( qq{ INSERT INTO class VALUES (0, 0, "regular data") } );
    43     $dbh->do( qq{ INSERT INTO class VALUES (1, 1, "special data") } );
     42    $dbh->do(qq{ INSERT INTO volume VALUES (2,'node02',?) }, undef, $dir2);
     43    $dbh->do(qq{ INSERT INTO mount VALUES (?, 10e10, 10e10) }, undef, $dir2);
     44
     45    $dbh->do(qq{ INSERT INTO class VALUES (0, 0, "regular data") });
     46    $dbh->do(qq{ INSERT INTO class VALUES (1, 1, "special data") });
    4447}
    4548
Note: See TracChangeset for help on using the changeset viewer.