~ubuntu-branches/ubuntu/intrepid/plplot/intrepid

« back to all changes in this revision

Viewing changes to test/test_tcl.sh.in

  • Committer: Bazaar Package Importer
  • Author(s): Rafael Laboissiere
  • Date: 2006-11-04 10:19:34 UTC
  • mfrom: (2.1.8 edgy)
  • Revision ID: james.westby@ubuntu.com-20061104101934-mlirvdg4gpwi6i5q
Tags: 5.6.1-10
* Orphaning the package
* debian/control: Changed the maintainer to the Debian QA Group

Show diffs side-by-side

added added

removed removed

Lines of Context:
 
1
#!/bin/sh
 
2
# Test suite for Tcl examples.
 
3
#
 
4
# Copyright (C) 2004  Alan W. Irwin
 
5
# Copyright (C) 2004  Rafael Laboissiere
 
6
# Copyright (C) 2004  Andrew Ross
 
7
#
 
8
# This file is part of PLplot.
 
9
#
 
10
# PLplot is free software; you can redistribute it and/or modify
 
11
# it under the terms of the GNU General Library Public License as published
 
12
# by the Free Software Foundation; either version 2 of the License, or
 
13
# (at your option) any later version.
 
14
#
 
15
# PLplot is distributed in the hope that it will be useful,
 
16
# but WITHOUT ANY WARRANTY; without even the implied warranty of
 
17
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 
18
# GNU Library General Public License for more details.
 
19
#
 
20
# You should have received a copy of the GNU Library General Public License
 
21
# along with PLplot; if not, write to the Free Software
 
22
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
 
23
 
 
24
# This is called from plplot-test.sh with $tcldir, $device, $dsuffix,
 
25
# and $options defined.
 
26
cd $OUTPUT_DIR
 
27
results=`pwd`
 
28
export results
 
29
cd $tcldir
 
30
pltcl -dev $device -o $results/plot.$dsuffix $options <<EOF
 
31
plinit
 
32
source plot.tcl
 
33
plot stats.log {1 4}
 
34
plot stats.log
 
35
plot r.dat
 
36
plot plot.dat
 
37
exit
 
38
EOF
 
39
pltcl -dev $device -o $results/plgrid.$dsuffix $options <<EOF
 
40
plinit
 
41
source plgrid.tcl
 
42
plgrid
 
43
exit
 
44
EOF
 
45
# Skip 14th example because requires two output files.
 
46
# Skip 17th example because it is not implemented (and if it was, it
 
47
# would be interactive only).
 
48
for index in 01 02 03 04 05 06 07 08 09 10 11 12 13 15 16 18 22; do
 
49
  ./x${index} -dev $device -o $results/x${index}t.$dsuffix $options
 
50
done