680 lines
33 KiB
Scheme
680 lines
33 KiB
Scheme
;;;
|
|
;;; 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))
|