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

« back to all changes in this revision

Viewing changes to test/test_tcl.sh

  • 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., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
23
 
 
24
 
# This is called from plplot-test.sh with $tcldir, $device, $dsuffix,
25
 
# and $options defined.
26
 
results=`pwd`
27
 
export results
28
 
cd $tcldir
29
 
pltcl -dev $device -o $results/plot.$dsuffix $options <<EOF
30
 
plinit
31
 
source plot.tcl
32
 
plot stats.log {1 4}
33
 
plot stats.log
34
 
plot r.dat
35
 
plot plot.dat
36
 
exit
37
 
EOF
38
 
pltcl -dev $device -o $results/plgrid.$dsuffix $options <<EOF
39
 
plinit
40
 
source plgrid.tcl
41
 
plgrid
42
 
exit
43
 
EOF
44
 
# Skip 14th example because requires two output files.
45
 
# Skip 17th example because it is not implemented (and if it was, it
46
 
# would be interactive only).
47
 
for index in 01 02 03 04 05 06 07 08 09 10 11 12 13 15 16 18 22; do
48
 
  ./x${index} -dev $device -o $results/x${index}t.$dsuffix $options
49
 
done