diff options
| -rw-r--r-- | Makefile | 3 | ||||
| -rw-r--r-- | incdec.pm | 14 | ||||
| -rw-r--r-- | t/100-increment-decrement.t | 16 | 
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; | 
