aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--Makefile3
-rw-r--r--incdec.pm14
-rw-r--r--t/100-increment-decrement.t16
3 files changed, 33 insertions, 0 deletions
diff --git a/Makefile b/Makefile
new file mode 100644
index 0000000..667ff7e
--- /dev/null
+++ b/Makefile
@@ -0,0 +1,3 @@
+.PHONY: test
+test:
+ prove -v
diff --git a/incdec.pm b/incdec.pm
new file mode 100644
index 0000000..96b28c8
--- /dev/null
+++ b/incdec.pm
@@ -0,0 +1,14 @@
+use strict;
+use warnings;
+
+package incdec;
+
+sub incdec {
+ my ($line) = @_;
+
+ $line =~ s/(\d+)/$1+1/e;
+
+ return $line;
+}
+
+1;
diff --git a/t/100-increment-decrement.t b/t/100-increment-decrement.t
new file mode 100644
index 0000000..d3b1e13
--- /dev/null
+++ b/t/100-increment-decrement.t
@@ -0,0 +1,16 @@
+#!/usr/bin/env perl -w
+
+use strict;
+
+use Test::More;
+
+use lib './';
+use incdec;
+
+is(
+ incdec::incdec('test 12'),
+ 'test 13',
+ 'increments an integer'
+);
+
+done_testing;