Permalink
Browse files

Added test case - formatting is off for functions with only one argum…

…ent.
  • Loading branch information...
1 parent 3d70597 commit 294c800cd710c455d49112476ecd9f209df8c60f @guillaumeaubert guillaumeaubert committed May 30, 2012
Showing with 30 additions and 0 deletions.
  1. +1 −0 MANIFEST
  2. +29 −0 t/CallerInformation-Redacted/51-get_redacted_line-single_argument.t
View
@@ -20,6 +20,7 @@ t/CallerInformation-Redacted/30-get_arguments_string.t
t/CallerInformation-Redacted/40-get_arguments_list.t
t/CallerInformation-Redacted/45-get_redacted_arguments_list.t
t/CallerInformation-Redacted/50-get_redacted_line.t
+t/CallerInformation-Redacted/51-get_redacted_line-single_argument.t
t/manifest.t
t/module_versions.t
t/perlcritic.t
@@ -0,0 +1,29 @@
+#!perl -T
+
+use strict;
+use warnings;
+
+use Carp::Parse::CallerInformation::Redacted;
+use Test::More tests => 1;
+
+
+my $caller_information = Carp::Parse::CallerInformation::Redacted->new(
+ {
+ arguments_string => "'batman'",
+ arguments_list =>
+ [
+ 'batman',
+ ],
+ redacted_arguments_list =>
+ [
+ 'batman',
+ ],
+ line => "answer_bat_signal('batman')",
+ }
+);
+
+is(
+ $caller_information->get_redacted_line(),
+ 'answer_bat_signal("batman")',
+ 'get_redacted_line() handles single arguments correctly.',
+);

0 comments on commit 294c800

Please sign in to comment.