--- trunk/t/1_nos.t 2005/08/22 19:25:24 71 +++ trunk/t/1_nos.t 2005/08/22 20:24:04 72 @@ -35,13 +35,13 @@ return $a->exists($email); } -ok($nos->new_list( list => 'My list', email => 'my-list@example.com', aliases => $aliases), "new_list my-list"); +ok($nos->create_list( list => 'My list', email => 'my-list@example.com', aliases => $aliases), "create_list my-list"); ok(check_aliases('my-list@example.com'), "alias added"); -ok($nos->new_list( list => 'another', email => 'another@example.com', aliases => $aliases), "new_list another"); +ok($nos->create_list( list => 'another', email => 'another@example.com', aliases => $aliases), "create_list another"); ok(check_aliases('another@example.com'), "alias added"); -ok($nos->new_list( list => 'test', email => 'test@example.com', aliases => $aliases), "new_list test"); +ok($nos->create_list( list => 'test', email => 'test@example.com', aliases => $aliases), "create_list test"); ok(check_aliases('test@example.com'), "alias added"); ok($nos->_get_list('My list'), "_get_list"); @@ -95,7 +95,7 @@ # now test delete -ok($nos->new_list( list => 'delete', email => 'delete@example.com', aliases => $aliases), "new_list error"); +ok($nos->create_list( list => 'delete', email => 'delete@example.com', aliases => $aliases), "create_list error"); ok($nos->add_member_to_list( list => 'delete', email => 'delete_me@example.com' ), "add test member"); @@ -123,7 +123,7 @@ # test delete lists foreach my $list (( 'My list', 'test', 'another', 'delete' )) { - ok($nos->delete_list( list => $list, aliases => $aliases ), "delete $list"); + ok($nos->drop_list( list => $list, aliases => $aliases ), "drop $list"); ok(! $nos->_get_list($list), "$list doesn't exist"); }