diff options
| author | welch <welch@noemail.net> | 1998-12-04 06:28:11 (GMT) |
|---|---|---|
| committer | welch <welch@noemail.net> | 1998-12-04 06:28:11 (GMT) |
| commit | 5bc602e7983dfaa46beddedc59b3aa8f2c20b389 (patch) | |
| tree | f0df433d9e43a1e826fc4d753ff2eb5a1f0c87ee | |
| parent | d976f96f4686e3629b8a388b7b8ea11c5665f032 (diff) | |
| download | tcl-5bc602e7983dfaa46beddedc59b3aa8f2c20b389.zip tcl-5bc602e7983dfaa46beddedc59b3aa8f2c20b389.tar.gz tcl-5bc602e7983dfaa46beddedc59b3aa8f2c20b389.tar.bz2 | |
Added test file
FossilOrigin-Name: a9d5792c93159f8425248805797b6590177b7b32
| -rw-r--r-- | tests/pkg/pkga.tcl | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/tests/pkg/pkga.tcl b/tests/pkg/pkga.tcl new file mode 100644 index 0000000..e964f51 --- /dev/null +++ b/tests/pkg/pkga.tcl @@ -0,0 +1,15 @@ +# pkga.tcl -- +# +# Test package for pkg_mkIndex. This package provides Pkga, +# which is also provided by a DLL. +# +# Copyright (c) 1998 by Scriptics Corporation. +# All rights reserved. +# +# RCS: @(#) $Id: pkga.tcl,v 1.1 1998/12/04 06:28:11 welch Exp $ + +package provide Pkga 1.0 + +proc pkga_neq { x } { + return [expr {! [pkgq_eq $x]}] +} |