1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
#!perl -w
use strict;
use Test qw(plan ok);
plan tests => 6;
use Tcl;
use File::Spec::Functions;
my $tcl = Tcl->new;
ok($tcl);
if ($^O eq 'cygwin') {
my $cpath = $tcl->Eval("info nameofexecutable");
$cpath = `cygpath -u '$cpath'`;
chomp($cpath);
ok($cpath, canonpath($^X));
} else {
ok(canonpath($tcl->Eval("info nameofexecutable")), canonpath($^X));
}
ok($tcl->Eval("info exists tcl_platform"), 1);
my $tclversion = $tcl->Eval("info tclversion");
ok($tclversion =~ /^8\.\d+$/);
ok(substr($tcl->Eval("info patchlevel"), 0, length($tclversion)), $tclversion);
ok(length($tcl->Eval("info patchlevel")) > length($tclversion));
|
