From 129bcc24915b909ebff92fc59bdfca7aaffab40e Mon Sep 17 00:00:00 2001 From: Matthew Musgrove Date: Sat, 2 Apr 2011 19:02:20 -0500 Subject: [PATCH] Updated Parliament.t --- t/Parliament.t | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/t/Parliament.t b/t/Parliament.t index 1b95a50f..a452b714 100644 --- a/t/Parliament.t +++ b/t/Parliament.t @@ -1,5 +1,5 @@ use lib '../lib'; -use Test::More tests => 20; +use Test::More tests => 24; use Test::Deep; use Data::Dumper; use 5.010; @@ -74,6 +74,15 @@ is($result->{error}{data}, 8, 'renaming star requires level 8 parliament'); $result = $tester->post('parliament', 'propose_broadcast_on_network19', [$session_id, $par->id]); is($result->{error}{data}, 9, 'broadcasting on network 19 requires level 9 parliament'); +$result = $tester->post('parliament', 'propose_induct_member', [$session_id, $par->id]); +is($result->{error}{data}, 10, 'inducting new members requires level 10 parliament'); + +$result = $tester->post('parliament', 'propose_expel_member', [$session_id, $par->id]); +is($result->{error}{data}, 10, 'expelling members requires level 10 parliament'); + +$result = $tester->post('parliament', 'propose_elect_new_leader', [$session_id, $par->id]); +is($result->{error}{data}, 11, 'electing a new leader requires level 11 parliament'); + $result = $tester->post('parliament', 'propose_rename_asteroid', [$session_id, $par->id]); is($result->{error}{data}, 12, 'renaming asteroid requires level 12 parliament'); -- 2.51.2