view release on metacpan or  search on metacpan

t/org2ical-usage-version.t  view on Meta::CPAN

    my $res = run [@full_script, '--help'], '2>', \my $stderr;
    ok !$res, 'script run failed';
    like $stderr, qr{Unknown option: help};
    like $stderr, qr{\Qorg2ical [--debug] }, 'usage';
}

{
    my $res = run [@full_script, '--version'], '>', \my $stdout;
    ok $res, 'script run ok';
    if ($stdout =~ m{org2ical ([\d\.]+)}) {
	pass 'looks like a version';
    } else {
	fail "'$stdout' does not look like a version";
    }
}

__END__

t/org2ical.t  view on Meta::CPAN

EOF
	close $ofh or die $!;
    }

    {
	my $success = run [@full_script, '--debug', '--domain-id=example.org', "--todo-file=$dir/test.org", "--ics-file=$dir/test.ics"], '>', \my $stdout, '2>', \my $stderr;
	ok $success, 'run on existing .ics file, changed date';
	my $ics_contents = slurp "$dir/test.ics";
	isnt $original_ics_contents, $ics_contents, 'changes in ics file';
	if ($stderr !~ m{but no diff available}) {
	    like $stdout, qr{^--- org2ical.t-.*/test.ics}, 'looks like a diff header';
	    like $stdout, qr{^-UID:Blcatps/EWPbXGJBkLi7Iw\@example.org}m, 'an expected diff line';
	}
    }

    {
	open my $ofh, '>:encoding(utf-8)', "$dir/test.org" or die $!;
	print $ofh <<EOF;
* TODO normal date :positivetag: <9999-01-01 Fr 00:00>
  Changes details.
EOF

t/usage-version.t  view on Meta::CPAN

    my $res = run [@full_script, '--help'], '2>', \my $stderr;
    ok !$res, 'script run failed';
    like $stderr, qr{Unknown option: help};
    like $stderr, qr{\Qorg-daemon [--debug] [--early-warning=seconds] [--early-warning-timeless=seconds] [--recheck-interval=seconds]\E\n\t\Q[--no-emacsclient-eval] [--emacsclient-cmd=...]\E\n\t\Q[--overview-widget=...] [--move-button]\E\n\t\Q[--[no-...
}

{
    my $res = run [@full_script, '--version'], '>', \my $stdout;
    ok $res, 'script run ok';
    if ($stdout =~ m{org-daemon ([\d\.]+)}) {
	pass 'looks like a version';
    } else {
	fail "'$stdout' does not look like a version";
    }
    my $script_version = $1;
    require App::orgdaemon;
    is $App::orgdaemon::VERSION, $script_version, 'script and lib version match';
}

__END__