OpenCores
URL https://opencores.org/ocsvn/or1k/or1k/trunk

Subversion Repositories or1k

[/] [or1k/] [trunk/] [insight/] [tix/] [tests/] [Test.tcl] - Blame information for rev 1781

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 578 markom
#! /bin/sh
2
# the next line restarts using tclsh \
3
exec tclsh "$0" "$@"
4
 
5
# Test.tcl --
6
#
7
#       This file executes the Tix test suite for the Unix platform.
8
#       Don't execute this file directly. Read the README file in this
9
#       directory first.
10
#
11
# Copyright (c) 1996, Expert Interface Technologies
12
#
13
# See the file "license.terms" for information on usage and redistribution
14
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
15
#
16
 
17
set targets  [lindex $argv 0]
18
set argvfiles [lrange $argv 1 end]
19
 
20
set env(WAITTIME) 200
21
 
22
set genDirs {
23
    general xpm hlist
24
}
25
 
26
set env(TCL_LIBRARY)    $env(TEST_TCL_LIBRARY)
27
set env(TK_LIBRARY)     $env(TEST_TK_LIBRARY)
28
set env(ITCL_LIBRARY)   $env(TEST_ITCL_LIBRARY)
29
set env(ITK_LIBRARY)    $env(TEST_ITK_LIBRARY)
30
set BINSRC_DIR          $env(TEST_BINSRC_DIR)
31
 
32
catch {
33
    unset env(TIX_DEBUG_INTERACTIVE)
34
}
35
 
36
set load(bin)   $BINSRC_DIR/../tk4.1/unix/wish
37
set tk40(bin)   $BINSRC_DIR/unix-tk4.0/tixwish
38
set tk41(bin)   $BINSRC_DIR/unix-tk4.1/tixwish
39
set tk42(bin)   $BINSRC_DIR/unix-tk4.2/tixwish
40
set itcl20(bin) $BINSRC_DIR/unix-itcl2.0/itixwish
41
set itcl21(bin) $BINSRC_DIR/unix-itcl2.1/itixwish
42
 
43
if ![info exists env(LD_LIBRARY_PATH)] {
44
    set env(LD_LIBRARY_PATH) ""
45
}
46
if [info exists env(TEST_LDPATHS)] {
47
    set env(LD_LIBRARY_PATH) $env(TEST_LDPATHS):$env(LD_LIBRARY_PATH)
48
}
49
 
50
foreach t $targets {
51
    upvar #0 $t target
52
 
53
    puts "Executing ---\n"
54
    puts "env TCL_LIBRARY=$env(TCL_LIBRARY) TK_LIBRARY=$env(TK_LIBRARY) ITCL_LIBRARY=$env(ITCL_LIBRARY) ITK_LIBRARY=$env(ITK_LIBRARY) LD_LIBRARY_PATH=$env(LD_LIBRARY_PATH) TIX_LIBRARY=$env(TIX_LIBRARY) $target(bin)"
55
    puts ""
56
 
57
 
58
    puts "Testing target $t with executable $target(bin)"
59
    eval exec $target(bin) Driver.tcl $argvfiles >@ stdout 2>@ stderr
60
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.