Fix operator for unmaintained translations conditions
[clawsker.git] / t / get_claws_version.t
1 use 5.010_000;
2 use strict;
3 use utf8;
4 use File::Temp qw(tempdir);
5 use Test::More tests => 4;
6
7 require_ok ('Clawsker');
8
9 my ($tempdir1, $claws1, $tempdir2, $claws2);
10
11 BEGIN {
12     $tempdir1 = tempdir ();
13     $tempdir2 = "$tempdir1/with space";
14     $claws1 = "$tempdir1/claws-mail";
15     $claws2 = "$tempdir2/claws-mail";
16     qx {
17         echo '#!/bin/sh' > $claws1
18         echo 'test "\$1" = '-v' && echo "Claws Mail version 3.2.1"' >> $claws1
19         chmod +x $claws1
20         mkdir "$tempdir2"
21         cp -p "$claws1" "$claws2"
22     };
23 };
24
25 END {
26     qx {
27         rm -rf $tempdir1
28     };
29 };
30
31 local %ENV;
32 $ENV{'PATH'} = $tempdir1;
33
34 use Clawsker;
35
36 ok (
37     defined &Clawsker::get_claws_version,
38     'has function'
39 );
40
41 ok (
42     '3.2.1.0' eq Clawsker::get_claws_version(),
43     'version ok 1'
44 );
45
46 $ENV{'PATH'} = $tempdir2;
47
48 ok (
49     '3.2.1.0' eq Clawsker::get_claws_version(),
50     'version ok 2'
51 );
52