diff options
Diffstat (limited to 'tcl/tests/pkg/pkga.tcl')
-rw-r--r-- | tcl/tests/pkg/pkga.tcl | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/tcl/tests/pkg/pkga.tcl b/tcl/tests/pkg/pkga.tcl new file mode 100644 index 00000000000..cb10a2de89f --- /dev/null +++ b/tcl/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$ + +package provide Pkga 1.0 + +proc pkga_neq { x } { + return [expr {! [pkgq_eq $x]}] +} |