diff options
Diffstat (limited to 'tests/server')
| -rw-r--r-- | tests/server/backend-t.in | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/tests/server/backend-t.in b/tests/server/backend-t.in index 85fb0ce..761b1ef 100644 --- a/tests/server/backend-t.in +++ b/tests/server/backend-t.in @@ -9,7 +9,7 @@ use strict; use IO::String; -use Test::More tests => 802; +use Test::More tests => 812; # Create a dummy class for Wallet::Server that prints what method was called # with its arguments and returns data for testing. @@ -45,6 +45,13 @@ sub acl_remove sub acl_rename { shift; print "acl_rename @_\n"; ($_[0] eq 'error') ? undef : 1 } +sub acl_history { + shift; + print "acl_history @_\n"; + return if $_[0] eq 'error'; + return 'acl_history'; +} + sub acl_show { shift; print "acl_show @_\n"; @@ -190,6 +197,7 @@ my %commands = (create => [2, 2], my %acl_commands = (add => [3, 3], create => [1, 1], destroy => [1, 1], + history => [1, 1], remove => [3, 3], rename => [2, 2], show => [1, 1]); @@ -331,6 +339,8 @@ for my $command (sort keys %acl_commands) { my $expected; if ($command eq 'show') { $expected = "$new\nacl_$command name$extra\nacl_show"; + } elsif ($command eq 'history') { + $expected = "$new\nacl_$command name$extra\nacl_history"; } else { $expected = "$new\nacl_$command name$extra\n"; } |