9 |
|
|
10 |
ok(my $nos = new Nos('dsn' => 'dbi:Pg:dbname=notices'), "new"); |
ok(my $nos = new Nos('dsn' => 'dbi:Pg:dbname=notices'), "new"); |
11 |
|
|
12 |
ok($nos->_add_list( list => 'My list', email => 'my-list@example.com'), "_add_list"); |
ok($nos->new_list( list => 'My list', email => 'my-list@example.com'), "new_list my-list"); |
13 |
ok($nos->_get_list('My list'), "_get_list"); |
ok($nos->new_list( list => 'My list', email => 'my2@example.com'), "new_list my2"); |
14 |
|
|
15 |
ok($nos->_add_list( list => 'Another list', email => 'list2@example.com'), "_add_list"); |
ok($nos->_add_list( list => 'Another list', email => 'list2@example.com'), "_add_list"); |
16 |
ok($nos->_get_list('Another list'), "_get_list"); |
ok($nos->_get_list('Another list'), "_get_list"); |