File: constants.t

package info (click to toggle)
libtcl-perl 1.32%2Bds-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 288 kB
  • sloc: perl: 417; tcl: 19; makefile: 14
file content (24 lines) | stat: -rw-r--r-- 498 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
use strict;
use Test qw(plan ok);

plan tests => 3;

use Tcl;

# These tests are bit lame, as they depend on the actual values,
# but at least it verifies that the constants are set up.

ok(Tcl::OK, 0);
ok(Tcl::ERROR, 1);

ok(Tcl::GLOBAL_ONLY      |
   Tcl::NAMESPACE_ONLY   |
   Tcl::APPEND_VALUE     |
   Tcl::LIST_ELEMENT     |
   Tcl::TRACE_READS      |
   Tcl::TRACE_WRITES     |
   Tcl::TRACE_UNSETS     |
   Tcl::TRACE_DESTROYED  |
   Tcl::LEAVE_ERR_MSG    |
   Tcl::TRACE_ARRAY,
   0xAFF);