Tcl Source Code

Check-in [3fb0791223]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Fix DDE tests, don't run on Unix (pcOnly).
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-1-branch-old
Files: files | file ages | folders
SHA1: 3fb0791223fc2b6bc61e6d8a8122840a1cbe92ab
User & Date: redman 1999-04-05 22:21:40
Context
1999-04-05
23:14
* tests/platform.test: * tests/fileName.test: Fixed broken tests. check-in: 2064a18cad user: stanton tags: core-8-1-branch-old
22:21
Fix DDE tests, don't run on Unix (pcOnly). check-in: 3fb0791223 user: redman tags: core-8-1-branch-old
22:20
Moved TclRegCompObj to Tcl_GetRegExpFromObj - also added info to man page. check-in: cc7406af37 user: rjohnson tags: core-8-1-branch-old
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to tests/winDde.test.

     5      5   # generates output for errors.  No output means no errors were found.
     6      6   #
     7      7   # Copyright (c) 1999 by Scriptics Corporation.
     8      8   #
     9      9   # See the file "license.terms" for information on usage and redistribution
    10     10   # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
    11     11   #
    12         -# RCS: @(#) $Id: winDde.test,v 1.1.2.1 1999/04/03 02:27:44 redman Exp $
           12  +# RCS: @(#) $Id: winDde.test,v 1.1.2.2 1999/04/05 22:21:40 redman Exp $
    13     13   
    14     14   if {[lsearch [namespace children] ::tcltest] == -1} {
    15     15       source [file join [pwd] [file dirname [info script]] defs.tcl]
    16     16   }
    17     17   
    18     18   if {$tcl_platform(platform) == "windows"} {
    19     19       if [catch {
................................................................................
    56     56       close $f
    57     57       
    58     58       set f [open "|$::tcltest $::scriptName" r]
    59     59       gets $f
    60     60       return $f
    61     61   }
    62     62   
    63         -test winDde-1.1 {Settings the server's topic name} {
           63  +test winDde-1.1 {Settings the server's topic name} {pcOnly} {
    64     64       list [dde servername foobar] [dde servername] [dde servername self]
    65     65   }  {foobar foobar self}
    66     66   
    67         -test winDde-2.1 {Checking for other services} {
           67  +test winDde-2.1 {Checking for other services} {pcOnly} {
    68     68       expr [llength [dde services {} {}]] >= 0
    69     69   } 1
    70     70   
    71         -test winDde-2.2 {Checking for existence in services list, with service and
    72         -topic specified} {
           71  +test winDde-2.2 {Checking for existence, with service and topic specified} \
           72  +	{pcOnly} {
    73     73       llength [dde services TclEval self]
    74     74   } 1
    75     75   
    76         -test winDde-2.3 {Checking for existence n services list, with only the service
    77         -specified} {
           76  +test winDde-2.3 {Checking for existence, with only the service specified} \
           77  +	{pcOnly} {
    78     78       expr [llength [dde services TclEval {}]] >= 1
    79     79   } 1
    80     80   
    81         -test winDde-3.1 {DDE execute locally} {
           81  +test winDde-3.1 {DDE execute locally} {pcOnly} {
    82     82       set a ""
    83     83       dde execute TclEval self {set a "foo"}
    84     84       set a
    85     85   } foo
    86     86   
    87         -test winDde-3.2 {DDE execute -async locally} {
           87  +test winDde-3.2 {DDE execute -async locally} {pcOnly} {
    88     88       set a ""
    89     89       dde execute -async TclEval self {set a "foo"}
    90     90       update
    91     91       set a
    92     92   } foo
    93     93   
    94         -test winDde-3.3 {DDE request locally} {
           94  +test winDde-3.3 {DDE request locally} {pcOnly} {
    95     95       set a ""
    96     96       dde execute TclEval self {set a "foo"}
    97     97       dde request TclEval self a
    98     98   } foo
    99     99   
   100         -test winDde-3.4 {DDE eval locally} {
          100  +test winDde-3.4 {DDE eval locally} {pcOnly} {
   101    101       set a ""
   102    102       dde eval self set a "foo"
   103    103   } foo
   104    104   
   105         -test winDde-4.1 {DDE execute remotely} {
          105  +test winDde-4.1 {DDE execute remotely} {pcOnly} {
   106    106       set a ""
   107    107       set child [createChildProcess child]
   108    108       dde execute TclEval child {set a "foo"}
   109    109   
   110    110       dde execute TclEval child {set done 1}
   111    111   
   112    112       set a
   113    113   } ""
   114    114   
   115         -test winDde-4.2 {DDE execute remotely} {
          115  +test winDde-4.2 {DDE execute remotely} {pcOnly} {
   116    116       set a ""
   117    117       set child [createChildProcess child]
   118    118       dde execute -async TclEval child {set a "foo"}
   119    119   
   120    120       dde execute TclEval child {set done 1}
   121    121   
   122    122       set a
   123    123   } ""
   124    124   
   125         -test winDde-4.3 {DDE request locally} {
          125  +test winDde-4.3 {DDE request locally} {pcOnly} {
   126    126       set a ""
   127    127       set child [createChildProcess child]
   128    128       dde execute TclEval child {set a "foo"}
   129    129       set a [dde request TclEval child a]
   130    130   
   131    131       
   132    132       dde execute TclEval child {set done 1}
   133    133   
   134    134       set a
   135    135   } foo
   136    136   
   137         -test winDde-4.4 {DDE eval locally} {
          137  +test winDde-4.4 {DDE eval locally} {pcOnly} {
   138    138       set a ""
   139    139       set child [createChildProcess child]
   140    140       set a [dde eval child set a "foo"]
   141    141   
   142    142       dde execute TclEval child {set done 1}
   143    143   
   144    144       set a