Version 0.1.9 from FTP
authorMark Spencer <markster@digium.com>
Tue, 31 Jul 2001 13:34:45 +0000 (13:34 +0000)
committerMark Spencer <markster@digium.com>
Tue, 31 Jul 2001 13:34:45 +0000 (13:34 +0000)
git-svn-id: https://origsvn.digium.com/svn/asterisk/trunk@347 65c4cc65-6c06-0410-ace0-fbb531ad65f3

agi/agi-test.agi [new file with mode: 0755]

diff --git a/agi/agi-test.agi b/agi/agi-test.agi
new file mode 100755 (executable)
index 0000000..3d9b5dc
--- /dev/null
@@ -0,0 +1,73 @@
+#!/usr/bin/perl
+$|=1;
+while(<STDIN>) {
+       chomp;
+       last unless length($_);
+       if (/^agi_(\w+)\:\s+(.*)$/) {
+               $AGI{$1} = $2;
+       }
+}
+
+print STDERR "AGI Environment Dump:\n";
+foreach $i (sort keys %AGI) {
+       print STDERR " -- $i = $AGI{$i}\n";
+}
+
+sub checkresult {
+       my ($res) = @_;
+       my $retval;
+       $tests++;
+       chomp $res;
+       if ($res =~ /^200/) {
+               $res =~ /result=(-?\d+)/;
+               if (!length($1)) {
+                       print STDERR "FAIL ($res)\n";
+                       $fail++;
+               } else {
+                       print STDERR "PASS ($1)\n";
+                       $pass++;
+               }
+       } else {
+               print STDERR "FAIL (unexpected result '$res')\n";
+               $fail++;
+       }
+}
+
+print STDERR "1.  Testing 'sendfile'...";
+print "STREAM FILE beep \"\"\n";
+$result = <STDIN>;
+checkresult($result);
+
+print STDERR "2.  Testing 'sendtext'...";
+print "SEND TEXT \"hello world\"\n";
+$result = <STDIN>;
+checkresult($result);
+
+print STDERR "3.  Testing 'sendimage'...";
+print "SEND IMAGE asterisk-image\n";
+$result = <STDIN>;
+checkresult($result);
+
+print STDERR "4.  Testing 'saynumber'...";
+print "SAY NUMBER 192837465 \"\"\n";
+$result = <STDIN>;
+checkresult($result);
+
+print STDERR "5.  Testing 'waitdtmf'...";
+print "WAIT FOR DIGIT 1000\n";
+$result = <STDIN>;
+checkresult($result);
+
+print STDERR "6.  Testing 'record'...";
+print "RECORD FILE testagi gsm 1234 3000\n";
+$result = <STDIN>;
+checkresult($result);
+
+print STDERR "6a.  Testing 'record' playback...";
+print "STREAM FILE testagi \"\"\n";
+$result = <STDIN>;
+checkresult($result);
+
+print STDERR "================== Complete ======================\n";
+print STDERR "$tests tests completed, $pass passed, $fail failed\n";
+print STDERR "==================================================\n";