diff options
author | markster <markster@f38db490-d61c-443f-a65b-d21fe96a405b> | 2001-07-31 13:34:45 +0000 |
---|---|---|
committer | markster <markster@f38db490-d61c-443f-a65b-d21fe96a405b> | 2001-07-31 13:34:45 +0000 |
commit | 1fbf51b77d0356d9f65894e9dccf86f7f8e9b9a1 (patch) | |
tree | 6eed02bbbe3fed1ec87f94f579ab93fabf69e97a | |
parent | 4ea0f055e5e35325af64094cc4b9be5563cb75dc (diff) |
Version 0.1.9 from FTP
git-svn-id: http://svn.digium.com/svn/asterisk/trunk@347 f38db490-d61c-443f-a65b-d21fe96a405b
-rwxr-xr-x | agi/agi-test.agi | 73 |
1 files changed, 73 insertions, 0 deletions
diff --git a/agi/agi-test.agi b/agi/agi-test.agi new file mode 100755 index 000000000..3d9b5dc3a --- /dev/null +++ b/agi/agi-test.agi @@ -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"; |