#!/usr/bin/perl use strict; use Test::More tests => 1; mkdir("t/support/files/a") unless -d "t/support/files/a"; `cp t/support/files/template/a/1 t/support/files/template/a/2 t/support/files/a/`; ok(! `/usr/local/bin/perl ./rsnapshot -c t/support/etc/rsync.conf hourly`); `rm -f t/support/files/a/1 t/support/files/a/2`;