1 files changed, 19 insertions, 0 deletions
diff --git a/t/00simple.t b/t/00simple.t
new file mode 100644
index 0000000..d3444de
--- /dev/null
+++ b/t/00simple.t
@@ -0,0 +1,19 @@
+# -*- perl -*-
+use lib qw(t lib);
+use strict;
+use TestBackup;
+use File::Backup;
+    
+plan test => 4;
+
+makefile('a');
+
+my $name = backup_simple('a');
+ok($name, 'a~');
+fileok('a', $name);
+
+$name = backup_simple('a');
+ok($name, 'a~');
+fileok('a', $name);
+    
+