From 07bbfd86116d3192e69af5b9a2f8d11af414f001 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?St=C3=A9phane=20Fillod=2C=20F8CFE?=
 <fillods@users.sourceforge.net>
Date: Mon, 15 Nov 2004 14:49:51 +0000
Subject: [PATCH] identify perl test

git-svn-id: https://hamlib.svn.sourceforge.net/svnroot/hamlib/trunk@1870 7ae35d74-ebe9-4afe-98af-79ac388436b8
---
 bindings/perltest.pl | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/bindings/perltest.pl b/bindings/perltest.pl
index 7bae93d60..6926b2e3e 100755
--- a/bindings/perltest.pl
+++ b/bindings/perltest.pl
@@ -2,7 +2,7 @@
 
 use Hamlib;
 
-print "Version: $Hamlib::hamlib_version\n";
+print "Perl test, version: $Hamlib::hamlib_version\n";
 print "FM: $Hamlib::RIG_MODE_FM\n";
 
 Hamlib::rig_set_debug($Hamlib::RIG_DEBUG_TRACE);
@@ -26,7 +26,14 @@ $f = $rig->get_freq();
 print "freq: $f\n";
 
 ($mode, $width) = $rig->get_mode();
-print "mode: $mode, width: $width\n";
+print "get_mode: $mode, width: $width\n";
+
+$vfo = $rig->get_vfo();
+print "get_vfo: $vfo\n";
+#$rig->set_vfo($Hamlib::RIG_VFO_A);
+$rig->set_vfo("VFOA");
+
+$rig->set_mode($Hamlib::RIG_MODE_CW, $Hamlib::RIG_PASSBAND_NORMAL);
 
 print "ITU region: $rig->{state}->{itu_region}\n";
 print "Copyright: $rig->{caps}->{copyright}\n";