1 files changed, 22 insertions, 0 deletions
diff --git a/t/02auto.t b/t/02auto.t
new file mode 100644
index 0000000..354e136
--- /dev/null
+++ b/t/02auto.t
@@ -0,0 +1,22 @@
+# -*- perl -*-
+use lib qw(t lib);
+use strict;
+use TestBackup;
+use File::Backup;
+    
+plan test => 6;
+
+makefile('a');
+
+my $name = backup_auto('a');
+ok($name, 'a~');
+fileok('a', $name);
+
+$name = backup_numbered('a');
+ok($name, 'a.~1~');
+fileok('a', $name);
+    
+$name = backup_auto('a');
+ok($name, 'a.~2~');
+fileok('a', $name);
+