diff --git a/streamApp/tests/testDummyInterface b/streamApp/tests/testDummyInterface deleted file mode 100755 index ab5884a..0000000 --- a/streamApp/tests/testDummyInterface +++ /dev/null @@ -1,75 +0,0 @@ -#!/usr/bin/env tclsh -source streamtestlib.tcl - -# Define records, protocol and startup (text goes to files) -# The asynPort "dummy" is not connected to any I/O -# Send commands to the ioc shell with ioccmd - -set records { - record (ao, "DZ:test1") - { - field (DTYP, "stream") - field (OUT, "@test.proto test1 dummy") - } -} - -set protocol { - Terminator = LF; - test1 {exec "dbpr %(NAME)s %i >testDummyInterface.out";} -} - -set startup { -} - -set debug 0 - -startioc - -ioccmd {dbpf DZ:test1 3} - -after 1000 - -if [catch { - set fd [open testDummyInterface.out] - set output [read $fd] - close $fd -} msg] { - puts stderr $msg - incr faults -} - -set expected {ACKS: NO_ALARM ACKT: YES ADEL: 0 ALST: 0 -AOFF: 0 ASG: ASLO: 0 BKPT: 00 -DESC: DISA: 0 DISP: 0 DISS: NO_ALARM -DISV: 1 DOL:CONSTANT DRVH: 0 DRVL: 0 -DTYP: stream EGU: EGUF: 0 EGUL: 0 -EOFF: 0 ESLO: 1 EVNT: 0 FLNK:CONSTANT 0 -HHSV: NO_ALARM HIGH: 0 HIHI: 0 HOPR: 0 -HSV: NO_ALARM HYST: 0 INIT: 1 -IVOA: Continue normally IVOV: 0 LALM: 3 -LBRK: 0 LCNT: 0 LINR: NO CONVERSION LLSV: NO_ALARM -LOLO: 0 LOPR: 0 LOW: 0 LSV: NO_ALARM -MDEL: 0 MLST: 0 NAME: DZ:test1 NSEV: NO_ALARM -NSTA: NO_ALARM OIF: Full OMOD: 1 OMSL: supervisory -ORAW: 0 ORBV: 0 OROC: 0 -OUT:INST_IO @test.proto test1 dummy OVAL: 3 PACT: 1 -PHAS: 0 PINI: NO PREC: 0 PRIO: LOW -PROC: 0 PUTF: 1 PVAL: 3 RBV: 0 -ROFF: 0 RPRO: 0 RVAL: 3 SCAN: Passive -SDIS:CONSTANT SEVR: INVALID SIML:CONSTANT SIMM: NO -SIMS: NO_ALARM SIOL:CONSTANT STAT: UDF TIME: -TPRO: 0 TSE: 0 TSEL:CONSTANT UDF: 0 -VAL: 3 -} - -if {"$output" != "$expected"} { - puts stderr "Wrong output:" - puts stderr "$output" - puts stderr "instead of:" - puts stderr "$expected" - incr faults -} else { - file delete testDummyInterface.out -} - -finish