gjoshi has asked for the wisdom of the Perl Monks concerning the following question:
Need help in writing test code to test perl script.
I have code as below which sends command through the serial port and gets the reply. Now I want to write a test script which will test PortTry.pl script. Anyone how to achive above. Thanksuse strict; use Win32::SerialPort; my $ob = Win32::SerialPort->new ('COM7') || die; $ob->user_msg(1); # misc. warnings $ob->error_msg(1); # hardware and data errors $ob->baudrate(38400); $ob->parity("none"); $ob->parity_enable(1); # for any parity except "none" $ob->databits(8); $ob->stopbits(1); $ob->handshake('rts'); $ob->write_settings; #$ob->save("tpj4.cfg"); print "wrote configuration file tpj4.cfg\n"; #$ob->write("ATE0X4\r"); #sleep 1; #my $result = $ob->input; #print "result = $result\n"; $ob->write("AT&V\r"); sleep 2; my $result = $ob->input; print "result = $result\n"; $ob->write("AT+CGDCONT?"); sleep 2; my $result = $ob->input; print "result = $result\n"; undef $ob;
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: How to write test code to test the perl script
by hippo (Bishop) on Jun 18, 2014 at 12:46 UTC | |
Re: How to write test code to test the perl script
by wjw (Priest) on Jun 18, 2014 at 12:00 UTC | |
Re: How to write test code to test the perl script
by perlfan (Vicar) on Jun 18, 2014 at 19:38 UTC | |
Re: How to write test code to test the perl script
by Khen1950fx (Canon) on Jun 20, 2014 at 05:38 UTC |
Back to
Seekers of Perl Wisdom