Lines Matching refs:is_ok
71 sub is_ok {
88 unless (is_ok ($ob = Device::SerialPort->start ($cfgfile))) {
96 is_ok ($ob->baudrate == 9600); # 3
97 is_ok ($ob->parity eq "none"); # 4
98 is_ok ($ob->databits == 8); # 5
99 is_ok ($ob->stopbits == 1); # 6
100 is_ok ($ob->handshake eq "none"); # 7
101 is_ok ($ob->read_const_time == 0); # 8
102 is_ok ($ob->read_char_time == 0); # 9
103 is_ok ($ob->alias eq "TestPort"); # 10
104 is_ok ($ob->parity_enable == 0); # 11
108 is_ok ($ob->devicetype eq 'none'); # 12
109 is_ok ($ob->hostname eq 'localhost'); # 13
111 is_ok ($ob->datatype eq 'raw'); # 15
112 is_ok ($ob->cfg_param_1 eq 'none'); # 16
113 is_ok ($ob->cfg_param_2 eq 'none'); # 17
114 is_ok ($ob->cfg_param_3 eq 'none'); # 18
125 is_ok ($out < 150); # 21
137 is_ok (2000 == $ob->read_const_time(2000)); # 22
150 is_ok (100 == $ob->read_char_time(100)); # 26
179 is_ok ("rts" eq $ob->handshake("rts")); # 35
180 is_ok ($ob->purge_rx); # 36
181 is_ok ($ob->purge_all); # 37
182 is_ok ($ob->purge_tx); # 38
189 is_ok(1 == $ob->user_msg); # 39
191 is_ok(1 == $ob->user_msg(1)); # 41
192 is_ok(1 == $ob->error_msg); # 42
194 is_ok(1 == $ob->error_msg(1)); # 44
201 unless (is_ok ($ob = Device::SerialPort->start ($cfgfile))) {
206 is_ok(1 == $ob->close); # 46