Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

Re: How to write test code to test the perl script

by Khen1950fx (Canon)
on Jun 20, 2014 at 05:38 UTC ( #1090551=note: print w/replies, xml ) Need Help??


in reply to How to write test code to test the perl script

A good module to start your tests with is Test::Device::SerialPort. For example:
#!/usr/bin/perl -l use strict; use warnings; use Test::Device::SerialPort qw( :STAT 0.05 ); use Data::Dumper::Concise; use Test::More; plan tests => 13; my $cfgname = "tpj4.cfg"; Test::Device::SerialPort->set_test_mode_active(1); my $ob = Test::Device::SerialPort->new('COM7'); die unless ($ob); ok( $ob->user_msg(1), 'user_msg on' ); ok( $ob->error_msg(1), 'error_msg on' ); ok( $ob->can_baud, 'can_baud' ); ok( $ob->can_databits, 'can databits' ); ok( $ob->can_parity_enable, 'can parity_enable' ); ok( scalar $ob->debug("T"), 'T' ); ok( scalar $ob->debug(), 'read debug state' ); ok( $ob->can_stopbits(1), 'can_stopbits' ); ok( $ob->can_handshake("rts"), 'set can_handshake' ); ok( $ob->write_settings, 'write settings' ); ok( $ob->save($cfgname), 'save settings' ); ok( $ob->write("AT&V\r") ); my ($result1) = $ob->input; print Dumper ("result = $result1"); ok( $ob->write("AT+CGDCONT?") ); my ($result2) = $ob->input; print Dumper ("result = $result2"); undef $ob;

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1090551]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (7)
As of 2019-05-22 08:36 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Do you enjoy 3D movies?



    Results (138 votes). Check out past polls.

    Notices?
    • (Sep 10, 2018 at 22:53 UTC) Welcome new users!