t/cvs.t

   1 #!/usr/bin/perl
   2 use warnings;
   3 use strict;
   4 my $dir;
   5 BEGIN {
   6         $dir="/tmp/ikiwiki-test-cvs.$$";
   7         my $cvs=`which cvs`;
   8         chomp $cvs;
   9         my $cvsps=`which cvsps`;
  10         chomp $cvsps;
  11         if (! -x $cvs || ! -x $cvsps) {
  12                 eval q{
  13                         use Test::More skip_all => "cvs or cvsps not available"
  14                 }
  15         }
  16         if (! mkdir($dir)) {
  17                 die $@;
  18         }
  19         foreach my $module ('File::ReadBackwards', 'File::MimeInfo') {
  20                 eval qq{use $module};
  21                 if ($@) {
  22                         eval qq{
  23                                 use Test::More skip_all => "$module not available"
  24                         }
  25                 }
  26         }
  27 }
  28 use Test::More tests => 12;
  29
  30 BEGIN { use_ok("IkiWiki"); }
  31
  32 sub _startup {
  33         _generate_minimal_config();
  34         _create_test_repo();
  35 }
  36
  37 sub _shutdown {
  38         system "rm -rf $dir";
  39 }
  40
  41 sub _generate_minimal_config {
  42         %config=IkiWiki::defaultconfig();
  43         $config{rcs} = "cvs";
  44         $config{srcdir} = "$dir/src";
  45         $config{cvsrepo} = "$dir/repo";
  46         $config{cvspath} = "ikiwiki";
  47         IkiWiki::loadplugins();
  48         IkiWiki::checkconfig();
  49 }
  50
  51 sub _create_test_repo {
  52         my $cvsrepo = "$dir/repo";
  53
  54         system "cvs -d $cvsrepo init >/dev/null";
  55         system "mkdir $dir/ikiwiki >/dev/null";
  56         system "cd $dir/ikiwiki && cvs -d $cvsrepo import -m import ikiwiki VENDOR RELEASE >/dev/null";
  57         system "rm -rf $dir/ikiwiki >/dev/null";
  58         system "cvs -d $cvsrepo co -d $config{srcdir} ikiwiki >/dev/null";
  59 }
  60
  61 sub test_web_commit {
  62         my $test1 = readfile("t/test1.mdwn");
  63         writefile('test1.mdwn', $config{srcdir}, $test1);
  64         IkiWiki::rcs_add("test1.mdwn");
  65         IkiWiki::rcs_commit(
  66                 files => "test1.mdwn",
  67                 message => "Added the first page",
  68                 token => "moo"
  69         );
  70
  71         my @changes = IkiWiki::rcs_recentchanges(3);
  72
  73         is($#changes, 0);
  74         is($changes[0]{message}[0]{"line"}, "Added the first page");
  75         is($changes[0]{pages}[0]{"page"}, "test1");
  76 }
  77
  78 sub test_manual_commit {
  79         my $message = "Added the second page";
  80
  81         my $test2 = readfile("t/test2.mdwn");
  82         writefile('test2.mdwn', $config{srcdir}, $test2);
  83         system "cd $config{srcdir} && cvs add test2.mdwn >/dev/null 2>&1";
  84         system "cd $config{srcdir} && cvs commit -m \"$message\" test2.mdwn >/dev/null";
  85
  86         my @changes = IkiWiki::rcs_recentchanges(3);
  87         is($#changes, 1);
  88         is($changes[0]{message}[0]{"line"}, $message);
  89         is($changes[0]{pages}[0]{"page"}, "test2");
  90         is($changes[1]{pages}[0]{"page"}, "test1");
  91
  92         # extra slashes in the path shouldn't break things
  93         $config{cvspath} = "/ikiwiki//";
  94         IkiWiki::checkconfig();
  95         @changes = IkiWiki::rcs_recentchanges(3);
  96         is($#changes, 1);
  97         is($changes[0]{message}[0]{"line"}, $message);
  98         is($changes[0]{pages}[0]{"page"}, "test2");
  99         is($changes[1]{pages}[0]{"page"}, "test1");
 100 }
 101
 102 _startup();
 103 test_web_commit();
 104 test_manual_commit();
 105 _shutdown();