summaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
authortetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2007-05-16 02:53:40 +0000
committertetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2007-05-16 02:53:40 +0000
commit89172b074ef8db7fbf9121ff13136c74ec102f29 (patch)
tree8f7c65bf94a06a233c753805dafa75d1aa5a517a /t
parent4a86427e85939157d906edc313326b00e64d0914 (diff)
Some if series -> if elsif conversions
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1200 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 't')
-rw-r--r--t/10-form.t4
1 files changed, 4 insertions, 0 deletions
diff --git a/t/10-form.t b/t/10-form.t
index 68b5e264..6c170a80 100644
--- a/t/10-form.t
+++ b/t/10-form.t
@@ -411,3 +411,7 @@ is($form->sort_order($aryref, {name => 0, projectnumber => 3, startdate => 1}),
$form = new Form;
@r = trap{$form->print_button({'pear' => {'key' => 'P', 'value' => 'Pears'}}, 'pear')};
is($trap->stdout, "<button class=\"submit\" type=\"submit\" name=\"action\" value=\"pear\" accesskey=\"P\" title=\"Pears [Alt-P]\">Pears</button>\n", 'print_button');
+
+## $form->like checks
+$form = new Form;
+is($form->like('hello world'), '%hello world%', 'like');