Newer
Older
#!/usr/bin/perl
use strict;
use warnings;
use Cwd 'abs_path';
use Test::Most;
chdir 't/etc/' or die $!;
$ENV{'HOME'} = abs_path ('.vcsh_home');
my $output = `./vcsh status`;
ok $output eq "", 'No repos set up yet.';
$output = `./vcsh init test1`;
ok $output eq "Initialized empty shared Git repository in " . $ENV{'HOME'} . "/.config/vcsh/repo.d/test1.git/\n";
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
$output = `./vcsh status`;
ok $output eq "test1:\n\n", 'Our new repo is there';
chdir $ENV{"HOME"} . '/.config/vcsh/repo.d/test1.git/' or die $!;
ok -f 'HEAD';
ok -d 'branches';
ok -f 'config';
ok -f 'description';
ok -d 'hooks';
ok -d 'info';
ok -d 'objects';
ok -d 'refs';
ok -f 'hooks/applypatch-msg.sample';
ok -f 'hooks/commit-msg.sample';
ok -f 'hooks/post-update.sample';
ok -f 'hooks/pre-applypatch.sample';
ok -f 'hooks/pre-commit.sample';
ok -f 'hooks/pre-push.sample';
ok -f 'hooks/pre-rebase.sample';
ok -f 'hooks/prepare-commit-msg.sample';
ok -f 'hooks/update.sample';
ok -f 'info/exclude';
ok -d 'objects/info';
ok -d 'objects/pack';
ok -d 'refs/heads';
ok -d 'refs/tags';
done_testing;