--- trunk/t/2_soap.t 2005/08/02 19:41:28 70 +++ trunk/t/2_soap.t 2005/08/22 20:24:04 72 @@ -54,19 +54,19 @@ $soap->on_debug(sub{print "## ", join("\n## ",@_), "\n";}) if ($debug); -# NewList +# CreateList -ok(my $list_id = $soap->NewList({ +ok(my $list_id = $soap->CreateList({ list => $list_name, from => 'SOAP list', email => 'soap-test@example.com', -})->result, "NewList named"); +})->result, "CreateList named"); -ok(my $list_id2 = $soap->NewList( +ok(my $list_id2 = $soap->CreateList( $list_name, 'SOAP test list', 'soap-test@example.com', -)->result, "NewList positional"); +)->result, "CreateList positional"); cmp_ok($list_id, '==', $list_id2, "list_id $list_id"); @@ -157,11 +157,11 @@ cmp_ok($#{$arr}, '==', 0, "member deleted"); -# DeleteList +# DropList -ok($soap->DeleteList({ +ok($soap->DropList({ list => $list_name, -})->result, "DeleteList named"); +})->result, "DropList named"); ok(my $has_members = $soap->ListMembers({ list => $list_name, @@ -169,15 +169,15 @@ cmp_ok($#{$has_members}, '==', -1, "ok, no members"); -ok($list_id = $soap->NewList({ +ok($list_id = $soap->CreateList({ list => $list_name, from => 'SOAP list', email => 'soap-test@example.com', -})->result, "NewList $list_name (recreated)"); +})->result, "CreateList $list_name (recreated)"); -ok($soap->DeleteList( +ok($soap->DropList( $list_name, -)->result, "DeleteList positional"); +)->result, "DropList positional"); ok($has_members = $soap->ListMembers({ list => $list_name,