adding wip test

Author: oodler577

wip/03-golf.t

@@ -0,0 +1,68 @@
+use Dispatch::Fu;    # exports 'dispatch' and 'on', which are needed
+
+use Test::More tests => 5;
+
+my $INPUT = q{case1};
+
+my $results = dispatch $INPUT,
+  on default => sub { 6 },
+  on case0   => sub { 0 },
+  on case1   => sub { 1 },
+  on case2   => sub { 2 },
+  on case3   => sub { 3 },
+  on case4   => sub { 4 },
+  on case5   => sub { 5 };
+
+is $results, 1, q{POD example for xdefault works when string being tested matches a case};
+
+$INPUT = q{not a case};
+
+$results = dispatch $INPUT,
+  on default => sub { 6 },
+  on case0   => sub { 0 },
+  on case1    => sub { 1 },
+  on case2    => sub { 2 },
+  on case3    => sub { 3 },
+  on case4    => sub { 4 },
+  on case5    => sub { 5 };
+
+is $results, 6, q{POD example for xdefault works when default case is specified};
+
+$INPUT = q{not a case};
+
+$results = dispatch $INPUT,
+  on default => sub { 6 },
+  on case0   => sub { 0 },
+  on case1   => sub { 1 },
+  on case2   => sub { 2 },
+  on case3   => sub { 3 },
+  on case4   => sub { 4 },
+  on case5   => sub { 5 };
+
+is $results, 6, q{POD example for xdefault works when default case is not specified (uses 'default')};
+
+$INPUT = undef;
+
+$results = dispatch $INPUT,
+  on default => sub { 6 },
+  on case0   => sub { 0 },
+  on case1   => sub { 1 },
+  on case2   => sub { 2 },
+  on case3   => sub { 3 },
+  on case4   => sub { 4 },
+  on case5   => sub { 5 };
+
+is $results, 6, q{POD example for xdefault works when $input_str is undef (uses 'default')};
+
+$INPUT = undef;
+
+$results = dispatch $INPUT,
+  on default => sub { 6 },
+  on case0   => sub { 0 },
+  on case1   => sub { 1 },
+  on case2   => sub { 2 },
+  on case3   => sub { 3 },
+  on case4   => sub { 4 },
+  on case5   => sub { 5 };
+
+is $results, 6, q{POD example for xdefault works when $input_str is undef (uses 'case0')};