diff options
Diffstat (limited to 'm3ua-asp-tests.scm')
| -rw-r--r-- | m3ua-asp-tests.scm | 679 |
1 files changed, 679 insertions, 0 deletions
diff --git a/m3ua-asp-tests.scm b/m3ua-asp-tests.scm new file mode 100644 index 0000000..1dd6541 --- /dev/null +++ b/m3ua-asp-tests.scm @@ -0,0 +1,679 @@ +;;; +;;; Copyright (C) 2005 M. Tuexen tuexen@fh-muenster.de +;;; +;;; All rights reserved. +;;; +;;; Redistribution and use in source and binary forms, with or +;;; without modification, are permitted provided that the +;;; following conditions are met: +;;; 1. Redistributions of source code must retain the above +;;; copyright notice, this list of conditions and the +;;; following disclaimer. +;;; 2. Redistributions in binary form must reproduce the +;;; above copyright notice, this list of conditions and +;;; the following disclaimer in the documentation and/or +;;; other materials provided with the distribution. +;;; 3. Neither the name of the project nor the names of +;;; its contributors may be used to endorse or promote +;;; products derived from this software without specific +;;; prior written permission. +;;; +;;; THIS SOFTWARE IS PROVIDED BY THE PROJECT AND CONTRIBUTORS +;;; ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, +;;; BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF +;;; MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE +;;; DISCLAIMED. IN NO EVENT SHALL THE PROJECT OR CONTRIBUTORS +;;; BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, +;;; EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT +;;; LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; +;;; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) +;;; HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER +;;; IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING +;;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE +;;; USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY +;;; OF SUCH DAMAGE. + +;;; $Id: m3ua-asp-tests.scm,v 1.12 2012/08/28 19:56:13 tuexen Exp $ + +;;; History +;;; 13.09.2005: Implement ASP tests. +;;; 09.10.2005: Provide example calls for the ASP. +;;; 07.01.2006: Implement missing ASP tests. +;;; 27.08.2006: Added m3ua-asp-aspsm-v-005-alternate +;;; 27.08.2006: Added m3ua-asp-aspsm-i-002-alternate +;;; +;;; Definition of the tests for the ASP +;;; + + +(define (m3ua-asp-aspsm-v-002 tester-addr tester-port sut-addr sut-port) + (let ((fd (m3ua-accept tester-addr tester-port))) + (let ((msg (m3ua-wait-for-message fd m3ua-asp-up-message?))) + (close fd) + (if (= (m3ua-get-version msg) 1) + m3ua-test-result-passed + m3ua-test-result-failed)))) +;;; (m3ua-asp-aspsm-v-002 tester-addr tester-port sut-addr sut-port) +;;; This test is passed iff the version in the common header of the +;;; received packet is 1. +;;; (m3ua-run-asp tester-addr (list m3ua-asp-inactive)) + + +(define (m3ua-asp-aspsm-v-005 tester-addr tester-port sut-addr sut-port) + (let ((fd (m3ua-accept tester-addr tester-port))) + (m3ua-wait-for-message fd m3ua-asp-up-message?) + (m3ua-send-message fd 0 (m3ua-make-asp-up-ack-message)) + (let ((msg (m3ua-wait-for-message fd m3ua-asp-down-message?))) + (close fd) + (if (= (m3ua-get-version msg) 1) + m3ua-test-result-passed + m3ua-test-result-failed)))) +;;; (m3ua-asp-aspsm-v-005 tester-addr tester-port sut-addr sut-port) +;;; This test is passed iff the version in the common header of the +;;; received packet is 1. +;;; (m3ua-run-asp tester-addr (list m3ua-asp-inactive m3ua-asp-down)) + + +(define (m3ua-asp-aspsm-v-005-alternate tester-addr tester-port sut-addr sut-port) + (let ((fd (m3ua-accept tester-addr tester-port))) + (m3ua-wait-for-message fd m3ua-asp-up-message?) + (m3ua-send-message fd 0 (m3ua-make-asp-up-ack-message)) + (let ((asp-active (m3ua-wait-for-message fd m3ua-asp-active-message?))) + (m3ua-send-message fd 0 (m3ua-make-asp-active-ack-message (m3ua-get-parameters asp-active)))) + (let ((asp-inactive (m3ua-wait-for-message fd m3ua-asp-inactive-message?))) + (if (= (m3ua-get-version asp-inactive) 1) + (begin + (m3ua-send-message fd 0 (m3ua-make-asp-inactive-ack-message (m3ua-get-parameters asp-inactive))) + (m3ua-wait-for-message fd m3ua-asp-down-message?) + (m3ua-send-message fd 0 (m3ua-make-asp-down-ack-message)) + (close fd) + m3ua-test-result-passed) + (begin + (close fd) + m3ua-test-result-failed))))) +;;; (m3ua-asp-aspsm-v-005-alternate tester-addr tester-port sut-addr sut-port) +;;; This test is passed iff the SUT sends an ASP_INACTIVE with version 1. +;;; (m3ua-run-asp tester-addr (list m3ua-asp-inactive m3ua-asp-active m3ua-asp-inactive)) + + +(define (m3ua-asp-aspsm-i-001 tester-addr tester-port sut-addr sut-port) + (let ((fd (m3ua-accept tester-addr tester-port))) + (m3ua-wait-for-message fd m3ua-asp-up-message?) + (m3ua-send-message fd 0 (m3ua-make-common-header (+ m3ua-version 1) + m3ua-reserved + m3ua-aspsm-message-class + m3ua-aspup-ack-message-type + m3ua-common-header-length)) + (let ((msg (m3ua-wait-for-message fd m3ua-error-message?))) + (close fd) + (if (= (m3ua-get-error-code-from-message msg) + m3ua-invalid-version-error-code) + m3ua-test-result-passed + m3ua-test-result-failed)))) +;;; (m3ua-asp-aspsm-i-001 tester-addr tester-port sut-addr sut-port) +;;; This test is passed iff the SUT returns an ERROR(invalid version) +;;; (m3ua-run-asp tester-addr (list m3ua-asp-inactive)) + + +(define (m3ua-asp-aspsm-i-002 tester-addr tester-port sut-addr sut-port) + (let ((fd (m3ua-accept tester-addr tester-port))) + (m3ua-wait-for-message fd m3ua-asp-up-message?) + (m3ua-send-message fd 0 (m3ua-make-asp-up-ack-message)) + (m3ua-wait-for-message fd m3ua-asp-down-message?) + (m3ua-send-message fd 0 (m3ua-make-common-header (+ m3ua-version 1) + m3ua-reserved + m3ua-aspsm-message-class + m3ua-aspdn-ack-message-type + m3ua-common-header-length)) + (let ((msg (m3ua-wait-for-message fd m3ua-error-message?))) + (close fd) + (if (= (m3ua-get-error-code-from-message msg) + m3ua-invalid-version-error-code) + m3ua-test-result-passed + m3ua-test-result-failed)))) +;;; (m3ua-asp-aspsm-i-002 tester-addr tester-port sut-addr sut-port) +;;; This test is passed iff the SUT returns an ERROR(invalid version) +;;; (m3ua-run-asp tester-addr (list m3ua-asp-inactive m3ua-asp-down)) + + +(define (m3ua-asp-aspsm-i-002-alternate tester-addr tester-port sut-addr sut-port) + (let ((fd (m3ua-accept tester-addr tester-port))) + (m3ua-wait-for-message fd m3ua-asp-up-message?) + (m3ua-send-message fd 0 (m3ua-make-asp-up-ack-message)) + (let ((asp-active (m3ua-wait-for-message fd m3ua-asp-active-message?))) + (m3ua-send-message fd 0 (m3ua-make-asp-active-ack-message (m3ua-get-parameters asp-active)))) + (let ((asp-inactive (m3ua-wait-for-message fd m3ua-asp-inactive-message?))) + (m3ua-send-message fd 0 (m3ua-make-asp-inactive-ack-message (m3ua-get-parameters asp-inactive)))) + (m3ua-wait-for-message fd m3ua-asp-down-message?) + (m3ua-send-message fd 0 (m3ua-make-common-header (+ m3ua-version 1) + m3ua-reserved + m3ua-aspsm-message-class + m3ua-aspdn-ack-message-type + m3ua-common-header-length)) + (let ((msg (m3ua-wait-for-message fd m3ua-error-message?))) + (close fd) + (if (= (m3ua-get-error-code-from-message msg) + m3ua-invalid-version-error-code) + m3ua-test-result-passed + m3ua-test-result-failed)))) +;;; (m3ua-asp-aspsm-i-002-alternate tester-addr tester-port sut-addr sut-port) +;;; This test is passed iff the SUT sends an ASP_INACTIVE with version 1. +;;; (m3ua-run-asp tester-addr (list m3ua-asp-inactive m3ua-asp-active m3ua-asp-inactive m3ua-asp-down)) + + +(define (m3ua-asp-aspsm-i-003 tester-addr tester-port sut-addr sut-port) + (let ((fd (m3ua-accept tester-addr tester-port))) + (m3ua-wait-for-message fd m3ua-asp-up-message?) +;; FIXME: Should I send the ASPUP-ACK? +;; (m3ua-send-message fd 0 (m3ua-make-asp-up-ack-message)) + (m3ua-send-message fd 0 (m3ua-make-message m3ua-aspsm-message-class + m3ua-reserved-aspsm-message-type + (list))) + (let ((msg (m3ua-wait-for-message fd m3ua-error-message?))) + (close fd) + (if (= (m3ua-get-error-code-from-message msg) + m3ua-unsupported-message-type-error-code) + m3ua-test-result-passed + m3ua-test-result-failed)))) +;;; (m3ua-asp-aspsm-i-003 tester-addr tester-port sut-addr sut-port) +;;; FIXME: Why states the ETSI document that the ASP is marked as ASP_INACTIVE +;;; This test is passed iff the SUT returns an ERROR(unsupported message type) +;;; (m3ua-run-asp tester-addr (list m3ua-asp-inactive)) + + +(define (m3ua-asp-aspsm-o-001 tester-addr tester-port sut-addr sut-port) + (let ((fd (m3ua-accept tester-addr tester-port))) + (m3ua-wait-for-message fd m3ua-asp-up-message?) + (m3ua-send-message fd 0 (m3ua-make-asp-down-ack-message)) + (let ((msg (m3ua-wait-for-message-with-timeout fd m3ua-asp-active-message? 2))) + (close fd) + (if (null? msg) + m3ua-test-result-passed + m3ua-test-result-failed)))) +;;; (m3ua-asp-aspsm-o-001 tester-addr tester-port sut-addr sut-port) +;;; This test is passed iff the SUT does not send an ASP_ACTIVE. FIXME. +;;; (m3ua-run-asp tester-addr (list m3ua-asp-inactive)) + + +(define (m3ua-asp-aspsm-o-002 tester-addr tester-port sut-addr sut-port) + (let ((fd (m3ua-accept tester-addr tester-port))) + (m3ua-wait-for-message fd m3ua-asp-up-message?) + (m3ua-send-message fd 0 (m3ua-make-asp-active-ack-message (list))) + (let ((msg (m3ua-recv-message-with-timeout fd 2))) + (close fd) + (if (or (null? msg) + (and (m3ua-error-message? msg) + (= (m3ua-get-error-code-from-message msg) m3ua-unexpected-message-error-code)) + (m3ua-asp-up-message? msg)) + m3ua-test-result-passed + (if (m3ua-data-message? msg) + m3ua-test-result-failed + m3ua-test-result-unknown))))) +;;; (m3ua-asp-aspsm-o-002 tester-addr tester-port sut-addr sut-port) +;;; This test is passed iff the SUT does send an ERROR(unexpected message). +;;; (m3ua-run-asp tester-addr (list m3ua-asp-inactive)) + + +(define (m3ua-asp-asptm-v-001 tester-addr tester-port sut-addr sut-port) + (let ((fd (m3ua-accept tester-addr tester-port))) + (m3ua-wait-for-message fd m3ua-asp-up-message?) + (m3ua-send-message fd 0 (m3ua-make-asp-up-ack-message)) + (let ((asp-active (m3ua-wait-for-message fd m3ua-asp-active-message?))) + (m3ua-send-message fd 0 (m3ua-make-asp-active-ack-message (m3ua-get-parameters asp-active)))) + (close fd) + m3ua-test-result-passed)) +;;; (m3ua-asp-asptm-v-001 tester-addr tester-port sut-addr sut-port) +;;; This test is passed iff the SUT sends an ASP_ACTIVE. +;;; (m3ua-run-asp tester-addr (list m3ua-asp-inactive m3ua-asp-active)) + + +(define (m3ua-asp-asptm-v-002 tester-addr tester-port sut-addr sut-port) + (let ((fd (m3ua-accept tester-addr tester-port))) + (m3ua-wait-for-message fd m3ua-asp-up-message?) + (m3ua-send-message fd 0 (m3ua-make-asp-up-ack-message)) + (let ((asp-active (m3ua-wait-for-message fd m3ua-asp-active-message?))) + (if (= (m3ua-get-version asp-active) 1) + (begin + (m3ua-send-message fd 0 (m3ua-make-asp-active-ack-message (m3ua-get-parameters asp-active))) + (close fd) + m3ua-test-result-passed) + (begin + (close fd) + m3ua-test-result-failed))))) +;;; (m3ua-asp-asptm-v-002 tester-addr tester-port sut-addr sut-port) +;;; This test is passed iff the SUT sends an ASP_ACTIVE with version 1. +;;; (m3ua-run-asp tester-addr (list m3ua-asp-inactive m3ua-asp-active)) + + +(define (m3ua-asp-asptm-v-005 tester-addr tester-port sut-addr sut-port) + (let ((fd (m3ua-accept tester-addr tester-port))) + (m3ua-wait-for-message fd m3ua-asp-up-message?) + (m3ua-send-message fd 0 (m3ua-make-asp-up-ack-message)) + (let ((asp-active (m3ua-wait-for-message fd m3ua-asp-active-message?))) + (m3ua-send-message fd 0 (m3ua-make-asp-active-ack-message (m3ua-get-parameters asp-active)))) + (let ((asp-inactive (m3ua-wait-for-message fd m3ua-asp-inactive-message?))) + (if (= (m3ua-get-version asp-inactive) 1) + (begin + (m3ua-send-message fd 0 (m3ua-make-asp-inactive-ack-message (m3ua-get-parameters asp-inactive))) + (close fd) + m3ua-test-result-passed) + (begin + (close fd) + m3ua-test-result-failed))))) +;;; (m3ua-asp-asptm-v-005 tester-addr tester-port sut-addr sut-port) +;;; This test is passed iff the SUT sends an ASP_INACTIVE with version 1. +;;; (m3ua-run-asp tester-addr (list m3ua-asp-inactive m3ua-asp-active m3ua-asp-inactive)) + + +(define (m3ua-asp-asptm-v-007 tester-addr tester-port sut-addr sut-port) + (let ((fd (m3ua-accept tester-addr tester-port))) + (m3ua-wait-for-message fd m3ua-asp-up-message?) + (m3ua-send-message fd 0 (m3ua-make-asp-up-ack-message)) + (let ((asp-active (m3ua-wait-for-message fd m3ua-asp-active-message?)) + (heartbeat-data (random-bytes 5000))) + (m3ua-send-message fd 0 (m3ua-make-asp-active-ack-message (m3ua-get-parameters asp-active))) + (m3ua-send-message fd 0 (m3ua-make-beat-message heartbeat-data)) + (let ((m (m3ua-wait-for-message fd (lambda (m) (or (m3ua-beat-ack-message? m) + (m3ua-error-message? m)))))) + (close fd) + (if (m3ua-beat-ack-message? m) + m3ua-test-result-passed + m3ua-test-result-failed))))) +;;; (m3ua-asp-asptm-v-007 tester-addr tester-port sut-addr sut-port) +;;; The last parameter is the length the hearbeat data. +;;; This test is passed iff the SUT sends a BEAT_ACK. +;;; (m3ua-run-asp tester-addr (list m3ua-asp-inactive m3ua-asp-active m3ua-asp-reflect-beat)) + + +(define (m3ua-asp-asptm-v-008 tester-addr tester-port sut-addr sut-port) + (let ((fd (m3ua-accept tester-addr tester-port))) + (m3ua-wait-for-message fd m3ua-asp-up-message?) + (m3ua-send-message fd 0 (m3ua-make-asp-up-ack-message)) + (let ((asp-active (m3ua-wait-for-message fd m3ua-asp-active-message?)) + (heartbeat-data (random-bytes 600))) + (m3ua-send-message fd 0 (m3ua-make-asp-active-ack-message (m3ua-get-parameters asp-active))) + (m3ua-send-message fd 0 (m3ua-make-beat-message heartbeat-data)) + (let ((m (m3ua-wait-for-message fd (lambda (m) (or (m3ua-beat-ack-message? m) + (m3ua-error-message? m)))))) + (close fd) + (if (and (m3ua-beat-ack-message? m) + (equal? (m3ua-make-beat-ack-message heartbeat-data) m)) + m3ua-test-result-passed + m3ua-test-result-failed))))) +;;; (m3ua-asp-asptm-v-008 tester-addr tester-port sut-addr sut-port) +;;; This test is passed iff the SUT sends a BEAT_ACK with unchanged data. +;;; This is indicated by returning true. +;;; (m3ua-run-asp tester-addr (list m3ua-asp-inactive m3ua-asp-active m3ua-asp-reflect-beat)) + + +(define (m3ua-asp-asptm-i-001 tester-addr tester-port sut-addr sut-port) + (let ((fd (m3ua-accept tester-addr tester-port))) + (m3ua-wait-for-message fd m3ua-asp-up-message?) + (m3ua-send-message fd 0 (m3ua-make-asp-up-ack-message)) + (let ((asp-active (m3ua-wait-for-message fd m3ua-asp-active-message?))) + (m3ua-send-message fd 0 (m3ua-increment-version + (m3ua-make-asp-active-ack-message (m3ua-get-parameters asp-active)))) + (let ((msg (m3ua-wait-for-message fd m3ua-error-message?))) + (close fd) + (if (= (m3ua-get-error-code-from-message msg) + m3ua-invalid-version-error-code) + m3ua-test-result-passed + m3ua-test-result-failed))))) +;;; (m3ua-asp-asptm-i-001 tester-addr tester-port sut-addr sut-port) +;;; This test is passed iff the SUT sends an ERROR(invalid version). +;;; (m3ua-run-asp tester-addr (list m3ua-asp-inactive m3ua-asp-active)) + + +(define (m3ua-asp-asptm-i-002 tester-addr tester-port sut-addr sut-port) + (let ((fd (m3ua-accept tester-addr tester-port))) + (m3ua-wait-for-message fd m3ua-asp-up-message?) + (m3ua-send-message fd 0 (m3ua-make-asp-up-ack-message)) + (let ((asp-active (m3ua-wait-for-message fd m3ua-asp-active-message?))) + (m3ua-send-message fd 0 (m3ua-make-asp-active-ack-message (m3ua-get-parameters asp-active))) + (m3ua-wait-for-message fd m3ua-asp-inactive-message?) + (m3ua-send-message fd 0 (m3ua-increment-version + (m3ua-make-asp-inactive-ack-message (m3ua-get-parameters asp-active)))) + (let ((msg (m3ua-wait-for-message fd m3ua-error-message?))) + (close fd) + (if (= (m3ua-get-error-code-from-message msg) + m3ua-invalid-version-error-code) + m3ua-test-result-passed + m3ua-test-result-failed))))) +;;; (m3ua-asp-asptm-i-002 tester-addr tester-port sut-addr sut-port) +;;; This test is passed iff the SUT sends an ERROR(invalid version). +;;; (m3ua-run-asp tester-addr (list m3ua-asp-inactive m3ua-asp-active m3ua-asp-inactive)) + + +(define (m3ua-asp-asptm-i-003 tester-addr tester-port sut-addr sut-port) + (let ((fd (m3ua-accept tester-addr tester-port))) + (m3ua-wait-for-message fd m3ua-asp-up-message?) + (m3ua-send-message fd 0 (m3ua-make-asp-up-ack-message)) + (let ((asp-active (m3ua-wait-for-message fd m3ua-asp-active-message?))) + (m3ua-send-message fd 0 (m3ua-make-message m3ua-asptm-message-class + m3ua-reserved-asptm-message-type + (list))) + (let ((msg (m3ua-wait-for-message fd m3ua-error-message?))) + (close fd) + (if (= (m3ua-get-error-code-from-message msg) + m3ua-unsupported-message-type-error-code) + m3ua-test-result-passed + m3ua-test-result-failed))))) +;;; (m3ua-asp-asptm-i-003 tester-addr tester-port sut-addr sut-port) +;;; FIXME: Why does the ETSI doucment state that the IUT is in ASP_DOWN. +;;; This test is passed iff the SUT sends an ERROR(unsupported message type). +;;; (m3ua-run-asp tester-addr (list m3ua-asp-inactive m3ua-asp-active)) + + +(define (m3ua-asp-asptm-o-001 tester-addr tester-port sut-addr sut-port) + (let ((fd (m3ua-accept tester-addr tester-port))) + (m3ua-wait-for-message fd m3ua-asp-up-message?) + (m3ua-send-message fd 0 (m3ua-make-asp-up-ack-message)) + (m3ua-wait-for-message fd m3ua-asp-active-message?) + (m3ua-send-message fd 0 (m3ua-make-asp-up-ack-message)) + (let ((msg (m3ua-recv-message-with-timeout fd 2))) + (close fd) + (if (or (null? msg) + (and (m3ua-error-message? msg) + (= (m3ua-get-error-code-from-message msg) m3ua-unexpected-message-error-code)) + (m3ua-asp-active-message? msg)) + m3ua-test-result-passed + (if (m3ua-data-message? msg) + m3ua-test-result-failed + m3ua-test-result-unknown))))) +;;; (m3ua-asp-asptm-o-001 tester-addr tester-port sut-addr sut-port) +;;; This test is passed iff the SUT sends an ERROR(unexpected message). +;;; FIXME: How to test the data sending? +;;; (m3ua-run-asp tester-addr (list m3ua-asp-inactive m3ua-asp-active)) + + +(define (m3ua-asp-mtr-v-001 tester-addr tester-port sut-addr sut-port) + (let ((fd (m3ua-accept tester-addr tester-port))) + (m3ua-wait-for-message fd m3ua-asp-up-message?) + (m3ua-send-message fd 0 (m3ua-make-asp-up-ack-message)) + (let ((asp-active (m3ua-wait-for-message fd m3ua-asp-active-message?))) + (m3ua-send-message fd 0 (m3ua-make-asp-active-ack-message (m3ua-get-parameters asp-active))) + (let ((m (m3ua-wait-for-message fd (lambda (m) (or (m3ua-data-message? m) + (m3ua-daud-message? m)))))) + (if (m3ua-daud-message? m) + (begin + (m3ua-send-message fd 0 (m3ua-make-dava-message (m3ua-get-parameters m))) + (m3ua-wait-for-message fd m3ua-data-message?)))) + (close fd) + m3ua-test-result-unknown))) +;;; (m3ua-asp-mtr-v-001 tester-addr tester-port sut-addr sut-port) +;;; This test is passed iff the SUT sends DATA including a RC. +;;; FIXME +;;; (m3ua-run-asp tester-addr (list m3ua-asp-inactive m3ua-asp-active m3ua-asp-send-data)) + + +(define (m3ua-asp-mtr-v-002 tester-addr tester-port sut-addr sut-port) + (let ((fd (m3ua-accept tester-addr tester-port))) + (m3ua-wait-for-message fd m3ua-asp-up-message?) + (m3ua-send-message fd 0 (m3ua-make-asp-up-ack-message)) + (let ((asp-active (m3ua-wait-for-message fd m3ua-asp-active-message?))) + (m3ua-send-message fd 0 (m3ua-make-asp-active-ack-message (m3ua-get-parameters asp-active))) + (let ((m (m3ua-wait-for-message fd (lambda (m) (or (m3ua-data-message? m) + (m3ua-daud-message? m)))))) + (if (m3ua-daud-message? m) + (begin + (m3ua-send-message fd 0 (m3ua-make-dava-message (m3ua-get-parameters m))) + (m3ua-wait-for-message fd m3ua-data-message?)))) + (close fd) + m3ua-test-result-unknown))) +;;; (m3ua-asp-mtr-v-002 tester-addr tester-port sut-addr sut-port) +;;; This test is passed iff the SUT sends DATA including data. +;;; FIXME +;;; (m3ua-run-asp tester-addr (list m3ua-asp-inactive m3ua-asp-active m3ua-asp-send-data)) + + +(define (m3ua-asp-mtr-v-003 tester-addr tester-port sut-addr sut-port) + (let ((fd (m3ua-accept tester-addr tester-port))) + (m3ua-wait-for-message fd m3ua-asp-up-message?) + (m3ua-send-message fd 0 (m3ua-make-asp-up-ack-message)) + (let ((asp-active (m3ua-wait-for-message fd m3ua-asp-active-message?))) + (m3ua-send-message fd 0 (m3ua-make-asp-active-ack-message (m3ua-get-parameters asp-active))) + (let ((m (m3ua-wait-for-message fd (lambda (m) (or (m3ua-data-message? m) + (m3ua-daud-message? m)))))) + (if (m3ua-daud-message? m) + (begin + (m3ua-send-message fd 0 (m3ua-make-dava-message (m3ua-get-parameters m))) + (m3ua-wait-for-message fd m3ua-data-message?)))) + (close fd) + m3ua-test-result-unknown))) +;;; (m3ua-asp-mtr-v-001 tester-addr tester-port sut-addr sut-port) +;;; This test is passed iff the SUT sends DATA in a valid stream . +;;; FIXME +;;; (m3ua-run-asp tester-addr (list m3ua-asp-inactive m3ua-asp-active m3ua-asp-send-data)) + + +(define (m3ua-asp-mtr-i-001 tester-addr tester-port sut-addr sut-port) + (let ((fd (m3ua-accept tester-addr tester-port))) + (m3ua-wait-for-message fd m3ua-asp-up-message?) + (m3ua-send-message fd 0 (m3ua-make-asp-up-ack-message)) + (let ((asp-active (m3ua-wait-for-message fd m3ua-asp-active-message?))) + (m3ua-send-message fd 0 (m3ua-make-asp-active-ack-message (m3ua-get-parameters asp-active))) + (m3ua-send-message fd 0 (m3ua-increment-version + (m3ua-make-data-message 0 0 0 0 0 0 (list) (list)))) + (let ((msg (m3ua-wait-for-message fd m3ua-error-message?))) + (close fd) + (if (= (m3ua-get-error-code-from-message msg) + m3ua-invalid-version-error-code) + m3ua-test-result-passed + m3ua-test-result-failed))))) +;;; (m3ua-asp-mtr-i-001 tester-addr tester-port sut-addr sut-port) +;;; This test is passed iff the SUT sends an ERROR(invalid version). +;;; (m3ua-run-asp tester-addr (list m3ua-asp-inactive m3ua-asp-active m3ua-asp-receive-data)) + + +(define (m3ua-asp-mtr-i-002 tester-addr tester-port sut-addr sut-port) + (let ((fd (m3ua-accept tester-addr tester-port))) + (m3ua-wait-for-message fd m3ua-asp-up-message?) + (m3ua-send-message fd 0 (m3ua-make-asp-up-ack-message)) + (let ((asp-active (m3ua-wait-for-message fd m3ua-asp-active-message?))) + (m3ua-send-message fd 0 (m3ua-make-asp-active-ack-message (m3ua-get-parameters asp-active))) + (m3ua-send-message fd 0 (m3ua-make-message m3ua-reserved-message-class + 0 + (list))) + (let ((msg (m3ua-wait-for-message fd m3ua-error-message?))) + (close fd) + (if (= (m3ua-get-error-code-from-message msg) + m3ua-unsupported-message-class-error-code) + m3ua-test-result-passed + m3ua-test-result-failed))))) +;;; (m3ua-asp-mtr-i-002 tester-addr tester-port sut-addr sut-port) +;;; This test is passed iff the SUT sends an ERROR(unsupported message class). +;;; (m3ua-run-asp tester-addr (list m3ua-asp-inactive m3ua-asp-active m3ua-asp-receive-data)) + + +(define (m3ua-asp-mtr-i-003 tester-addr tester-port sut-addr sut-port) + (let ((fd (m3ua-accept tester-addr tester-port))) + (m3ua-wait-for-message fd m3ua-asp-up-message?) + (m3ua-send-message fd 0 (m3ua-make-asp-up-ack-message)) + (let ((asp-active (m3ua-wait-for-message fd m3ua-asp-active-message?))) + (m3ua-send-message fd 0 (m3ua-make-asp-active-ack-message (m3ua-get-parameters asp-active))) + (m3ua-send-message fd 0 (m3ua-make-message m3ua-tfer-message-class + m3ua-reserved-tfer-message-type + (list))) + (let ((msg (m3ua-wait-for-message fd m3ua-error-message?))) + (close fd) + (if (= (m3ua-get-error-code-from-message msg) + m3ua-unsupported-message-type-error-code) + m3ua-test-result-passed + m3ua-test-result-failed))))) +;;; (m3ua-asp-mtr-i-003 tester-addr tester-port sut-addr sut-port) +;;; This test is passed iff the SUT sends an ERROR(unsupported message type). +;;; (m3ua-run-asp tester-addr (list m3ua-asp-inactive m3ua-asp-active m3ua-asp-receive-data)) + + +(define (m3ua-asp-rkm-v-002 tester-addr tester-port sut-addr sut-port) + (let ((fd (m3ua-accept tester-addr tester-port))) + (m3ua-wait-for-message fd m3ua-asp-up-message?) + (m3ua-send-message fd 0 (m3ua-make-asp-up-ack-message)) + (let ((message (m3ua-wait-for-message fd m3ua-reg-req-message?))) + (m3ua-send-message fd 0 (m3ua-make-reg-rsp-from-reg-req message))) + (sleep 1) + (close fd))) +;;; (m3ua-asp-rkm-v-002 tester-addr tester-port sut-addr sut-port) +;;; This test is passed iff the SUT sends a valid routing key. +;;; (m3ua-run-asp tester-addr (list m3ua-asp-inactive m3ua-asp-send-reg-req)) + + +(define (m3ua-asp-rkm-v-003 tester-addr tester-port sut-addr sut-port) + (let ((fd (m3ua-accept tester-addr tester-port))) + (m3ua-wait-for-message fd m3ua-asp-up-message?) + (m3ua-send-message fd 0 (m3ua-make-asp-up-ack-message)) + (let ((reg-req (m3ua-wait-for-message fd m3ua-reg-req-message?))) + (m3ua-send-message fd 0 (m3ua-make-reg-rsp-from-reg-req reg-req)) + (let ((dereg-req (m3ua-wait-for-message fd m3ua-dereg-req-message?))) + (m3ua-send-message fd 0 (m3ua-make-dereg-rsp-from-dereg-req dereg-req)))) + (sleep 1) + (close fd))) +;;; (m3ua-asp-rkm-v-003 tester-addr tester-port sut-addr sut-port) +;;; This test is passed iff the SUT sends a deregistration request. +;;; (m3ua-run-asp tester-addr (list m3ua-asp-inactive m3ua-asp-send-reg-req m3ua-asp-send-dereg-req)) + + +(define (m3ua-asp-rkm-v-004 tester-addr tester-port sut-addr sut-port) + (let ((fd (m3ua-accept tester-addr tester-port))) + (m3ua-wait-for-message fd m3ua-asp-up-message?) + (m3ua-send-message fd 0 (m3ua-make-asp-up-ack-message)) + (let ((reg-req (m3ua-wait-for-message fd m3ua-reg-req-message?))) + (m3ua-send-message fd 0 (m3ua-make-reg-rsp-from-reg-req reg-req)) + (let ((dereg-req (m3ua-wait-for-message fd m3ua-dereg-req-message?))) + (m3ua-send-message fd 0 (m3ua-make-dereg-rsp-from-dereg-req dereg-req)))) + (sleep 1) + (close fd))) +;;; (m3ua-asp-rkm-v-004 tester-addr tester-port sut-addr sut-port) +;;; This test is passed iff the SUT sends a deregistration request with correct routing context. +;;; (m3ua-run-asp tester-addr (list m3ua-asp-inactive m3ua-asp-send-reg-req m3ua-asp-send-dereg-req)) + + +(define (m3ua-asp-rkm-i-001 tester-addr tester-port sut-addr sut-port) + (let ((fd (m3ua-accept tester-addr tester-port))) + (m3ua-wait-for-message fd m3ua-asp-up-message?) + (m3ua-send-message fd 0 (m3ua-make-asp-up-ack-message)) + (m3ua-wait-for-message fd m3ua-reg-req-message?) + (m3ua-send-message fd 0 (m3ua-make-message m3ua-rkm-message-class + m3ua-reserved-rkm-message-type + (list))) + (m3ua-wait-for-message fd m3ua-error-message?) + (sleep 1) + (close fd))) +;;; (m3ua-asp-rkm-i-001 tester-addr tester-port sut-addr sut-port) +;;; This test is passed iff the SUT sends an ERROR(unsupported message type). +;;; (m3ua-run-asp tester-addr (list m3ua-asp-inactive m3ua-asp-send-reg-req m3ua-asp-active)) + + +(define (m3ua-asp-ssnm-001 tester-addr tester-port sut-addr sut-port) + (let ((fd (m3ua-accept tester-addr tester-port))) + (m3ua-wait-for-message fd m3ua-asp-up-message?) + (m3ua-send-message fd 0 (m3ua-make-asp-up-ack-message)) + (let ((asp-active (m3ua-wait-for-message fd m3ua-asp-active-message?))) + (m3ua-send-message fd 0 (m3ua-make-asp-active-ack-message (m3ua-get-parameters asp-active)))) + (m3ua-send-message fd 0 (m3ua-make-duna-message (list (m3ua-make-affected-point-code-parameter (list (list 0 tester-unavailable-pc)))))) + (m3ua-wait-for-message fd m3ua-daud-message?) + (close fd) + m3ua-test-result-passed)) +;;; (m3ua-asp-ssnm-001 tester-addr tester-port sut-addr sut-port) +;;; This test is passed iff the SUT sends an DAUD. +;;; (m3ua-run-asp tester-addr (list m3ua-asp-inactive m3ua-asp-active)) + +(define (m3ua-asp-ssnm-002 tester-addr tester-port sut-addr sut-port) + (let ((fd (m3ua-accept tester-addr tester-port))) + (m3ua-wait-for-message fd m3ua-asp-up-message?) + (m3ua-send-message fd 0 (m3ua-make-asp-up-ack-message)) + (let ((asp-active (m3ua-wait-for-message fd m3ua-asp-active-message?))) + (m3ua-send-message fd 0 (m3ua-make-asp-active-ack-message (m3ua-get-parameters asp-active)))) + (m3ua-send-message fd 0 (m3ua-make-duna-message (list (m3ua-make-affected-point-code-parameter (list (list 255 tester-unavailable-pc)))))) + (m3ua-wait-for-message fd m3ua-daud-message?) + (close fd) + m3ua-test-result-passed)) +;;; (m3ua-asp-ssnm-002 tester-addr tester-port sut-addr sut-port) +;;; This test is passed iff the SUT sends an DAUD. +;;; (m3ua-run-asp tester-addr (list m3ua-asp-inactive m3ua-asp-active)) + +(define (m3ua-asp-ssnm-003 tester-addr tester-port sut-addr sut-port) + (let ((fd (m3ua-accept tester-addr tester-port))) + (m3ua-wait-for-message fd m3ua-asp-up-message?) + (m3ua-send-message fd 0 (m3ua-make-asp-up-ack-message)) + (let ((asp-active (m3ua-wait-for-message fd m3ua-asp-active-message?))) + (m3ua-send-message fd 0 (m3ua-make-asp-active-ack-message (m3ua-get-parameters asp-active)))) + (m3ua-send-message fd 0 (m3ua-make-drst-message (list (m3ua-make-affected-point-code-parameter (list (list 0 tester-restricted-pc)))))) + (m3ua-wait-for-message fd m3ua-daud-message?) + (close fd) + m3ua-test-result-passed)) +;;; (m3ua-asp-ssnm-003 tester-addr tester-port sut-addr sut-port) +;;; This test is passed iff the SUT sends an DAUD. +;;; (m3ua-run-asp tester-addr (list m3ua-asp-inactive m3ua-asp-active)) + +(define (m3ua-asp-ssnm-004 tester-addr tester-port sut-addr sut-port) + (let ((fd (m3ua-accept tester-addr tester-port))) + (m3ua-wait-for-message fd m3ua-asp-up-message?) + (m3ua-send-message fd 0 (m3ua-make-asp-up-ack-message)) + (let ((asp-active (m3ua-wait-for-message fd m3ua-asp-active-message?))) + (m3ua-send-message fd 0 (m3ua-make-asp-active-ack-message (m3ua-get-parameters asp-active)))) + (m3ua-send-message fd 0 (m3ua-make-drst-message (list (m3ua-make-affected-point-code-parameter (list (list 255 tester-restricted-pc)))))) + (m3ua-wait-for-message fd m3ua-daud-message?) + (close fd) + m3ua-test-result-passed)) +;;; (m3ua-asp-ssnm-004 tester-addr tester-port sut-addr sut-port) +;;; This test is passed iff the SUT sends an DAUD. +;;; (m3ua-run-asp tester-addr (list m3ua-asp-inactive m3ua-asp-active)) + +(define (m3ua-asp-ssnm-005 tester-addr tester-port sut-addr sut-port) + (let ((fd (m3ua-accept tester-addr tester-port))) + (m3ua-wait-for-message fd m3ua-asp-up-message?) + (m3ua-send-message fd 0 (m3ua-make-asp-up-ack-message)) + (let ((asp-active (m3ua-wait-for-message fd m3ua-asp-active-message?))) + (m3ua-send-message fd 0 (m3ua-make-asp-active-ack-message (m3ua-get-parameters asp-active)))) + (m3ua-send-message fd 0 (m3ua-make-scon-message (list (m3ua-make-affected-point-code-parameter (list (list 0 tester-congested-pc)))))) + (m3ua-wait-for-message fd m3ua-daud-message?) + (close fd) + m3ua-test-result-passed)) +;;; (m3ua-asp-ssnm-005 tester-addr tester-port sut-addr sut-port) +;;; This test is passed iff the SUT sends an DAUD. +;;; (m3ua-run-asp tester-addr (list m3ua-asp-inactive m3ua-asp-active)) + +(define (m3ua-asp-ssnm-006 tester-addr tester-port sut-addr sut-port) + (let ((fd (m3ua-accept tester-addr tester-port))) + (m3ua-wait-for-message fd m3ua-asp-up-message?) + (m3ua-send-message fd 0 (m3ua-make-asp-up-ack-message)) + (let ((asp-active (m3ua-wait-for-message fd m3ua-asp-active-message?))) + (m3ua-send-message fd 0 (m3ua-make-asp-active-ack-message (m3ua-get-parameters asp-active)))) + (m3ua-send-message fd 0 (m3ua-make-scon-message (list (m3ua-make-affected-point-code-parameter (list (list 255 tester-congested-pc)))))) + (m3ua-wait-for-message fd m3ua-daud-message?) + (close fd) + m3ua-test-result-passed)) +;;; (m3ua-asp-ssnm-006 tester-addr tester-port sut-addr sut-port) +;;; This test is passed iff the SUT sends an DAUD. +;;; (m3ua-run-asp tester-addr (list m3ua-asp-inactive m3ua-asp-active)) + +(define (m3ua-asp-ssnm-007 tester-addr tester-port sut-addr sut-port) + (let ((fd (m3ua-accept tester-addr tester-port))) + (m3ua-wait-for-message fd m3ua-asp-up-message?) + (m3ua-send-message fd 0 (m3ua-make-asp-up-ack-message)) + (let ((asp-active (m3ua-wait-for-message fd m3ua-asp-active-message?))) + (m3ua-send-message fd 0 (m3ua-make-asp-active-ack-message (m3ua-get-parameters asp-active)))) + (m3ua-send-message fd 0 (m3ua-make-dupu-message (list (m3ua-make-affected-point-code-parameter (list (list 0 tester-congested-pc))) + (m3ua-make-user-cause-parameter m3ua-mtp-user-isup m3ua-unequipped-remote-user-cause)))) + (m3ua-wait-for-message fd m3ua-daud-message?) + (close fd) + m3ua-test-result-passed)) +;;; (m3ua-asp-ssnm-006 tester-addr tester-port sut-addr sut-port) +;;; This test is passed iff the SUT sends an DAUD. +;;; (m3ua-run-asp tester-addr (list m3ua-asp-inactive m3ua-asp-active)) + +(define (m3ua-asp-ssnm-008 tester-addr tester-port sut-addr sut-port) + (let ((fd (m3ua-accept tester-addr tester-port))) + (m3ua-wait-for-message fd m3ua-asp-up-message?) + (m3ua-send-message fd 0 (m3ua-make-asp-up-ack-message)) + (let ((asp-active (m3ua-wait-for-message fd m3ua-asp-active-message?))) + (m3ua-send-message fd 0 (m3ua-make-asp-active-ack-message (m3ua-get-parameters asp-active)))) + (m3ua-send-message fd 0 (m3ua-make-dupu-message (list (m3ua-make-affected-point-code-parameter (list (list 255 tester-congested-pc))) + (m3ua-make-user-cause-parameter m3ua-mtp-user-isup m3ua-unequipped-remote-user-cause)))) + (m3ua-wait-for-message fd m3ua-error-message?) + (close fd) + m3ua-test-result-passed)) +;;; (m3ua-asp-ssnm-006 tester-addr tester-port sut-addr sut-port) +;;; This test is passed iff the SUT sends an ERROR. +;;; (m3ua-run-asp tester-addr (list m3ua-asp-inactive m3ua-asp-active)) |