From 011ebf442dba7ead42eae3b6542327db66a924a6 Mon Sep 17 00:00:00 2001
From: Roland Hopferwieser <develop@int0x80.at>
Date: Tue, 29 Aug 2017 20:38:02 +0200
Subject: [PATCH] Add unit tests
---
t/800-aliases.t | 47 +++++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 47 insertions(+)
create mode 100644 t/800-aliases.t
diff --git a/t/800-aliases.t b/t/800-aliases.t
new file mode 100644
index 0000000..6cb250b
--- /dev/null
+++ b/t/800-aliases.t
@@ -0,0 +1,47 @@
+#!/usr/bin/perl
+#
+BEGIN { $ENV{LC_ALL} = 'C' }
+
+use strict;
+use warnings;
+
+use Cwd 'abs_path';
+use Test::Most;
+
+chdir 't/etc/' or die $!;
+
+$ENV{'HOME'} = abs_path ('.vcsh_home');
+
+chdir '.vcsh_home' or die $!;
+
+my $output = `../vcsh alias`;
+ok $output eq "", 'No aliases set up yet.';
+
+system("../vcsh alias ls=list");
+$output = `../vcsh alias`;
+ok $output eq "ls = list\n", 'Add alias ls';
+
+system("../vcsh alias ci=commit -a");
+$output = `../vcsh alias`;
+ok $output eq "ls = list
+ci = commit -a
+", 'Add alias ci';
+
+system("../vcsh alias co=upgrade");
+$output = `../vcsh alias`;
+ok $output eq "ls = list
+ci = commit -a
+co = upgrade
+", 'Add alias co';
+
+$output = `../vcsh alias ci`;
+ok $output eq "commit -a\n", 'Get alias ci';
+
+system("../vcsh alias -d ci");
+$output = `../vcsh alias`;
+ok $output eq "ls = list
+co = upgrade
+", 'Delete alias ci';
+
+done_testing;
+
--
GitLab