497 lines
23 KiB
Scheme
497 lines
23 KiB
Scheme
;;;
|
|
;;; Copyright (c) 2011 Michael Tuexen
|
|
;;; 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.
|
|
;;;
|
|
;;; THIS SOFTWARE IS PROVIDED BY THE AUTHOR 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 AUTHOR 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: sua-asp-tests.scm,v 1.3 2011/03/21 23:51:58 tuexen Exp $
|
|
|
|
|
|
(define (sua-asp-aspsm-v-01 tester-addr tester-port sut-addr sut-port)
|
|
(let ((fd (sua-accept tester-addr tester-port)))
|
|
(let ((msg (sua-wait-for-message fd sua-asp-up-message?)))
|
|
(close fd)
|
|
(if (= (sua-get-version msg) 1)
|
|
sua-test-result-passed
|
|
sua-test-result-failed))))
|
|
;;; (sua-asp-aspsm-v-01 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.
|
|
;;; (sua-run-asp tester-addr (list sua-asp-inactive))
|
|
|
|
|
|
(define (sua-asp-aspsm-v-02 tester-addr tester-port sut-addr sut-port)
|
|
(let ((fd (sua-accept tester-addr tester-port)))
|
|
(sua-wait-for-message fd sua-asp-up-message?)
|
|
(sua-send-message fd 0 (sua-make-asp-up-ack-message))
|
|
(let ((msg (sua-wait-for-message fd sua-asp-down-message?)))
|
|
(close fd)
|
|
(if (= (sua-get-version msg) 1)
|
|
sua-test-result-passed
|
|
sua-test-result-failed))))
|
|
;;; (2ua-asp-aspsm-v-02 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.
|
|
;;; (sua-run-asp tester-addr (list sua-asp-inactive sua-asp-down))
|
|
|
|
|
|
(define (sua-asp-aspsm-v-02-alternate tester-addr tester-port sut-addr sut-port)
|
|
(let ((fd (sua-accept tester-addr tester-port)))
|
|
(sua-wait-for-message fd sua-asp-up-message?)
|
|
(sua-send-message fd 0 (sua-make-asp-up-ack-message))
|
|
(let ((asp-active (sua-wait-for-message fd sua-asp-active-message?)))
|
|
(sua-send-message fd 0 (sua-make-asp-active-ack-message (sua-get-parameters asp-active))))
|
|
(let ((asp-inactive (sua-wait-for-message fd sua-asp-inactive-message?)))
|
|
(if (= (sua-get-version asp-inactive) 1)
|
|
(begin
|
|
(sua-send-message fd 0 (sua-make-asp-inactive-ack-message (sua-get-parameters asp-inactive)))
|
|
(sua-wait-for-message fd sua-asp-down-message?)
|
|
(sua-send-message fd 0 (sua-make-asp-down-ack-message))
|
|
(close fd)
|
|
sua-test-result-passed)
|
|
(begin
|
|
(close fd)
|
|
sua-test-result-failed)))))
|
|
;;; (sua-asp-aspsm-v-02-alternate tester-addr tester-port sut-addr sut-port)
|
|
;;; This test is passed iff the SUT sends an ASP_INACTIVE with version 1.
|
|
;;; (sua-run-asp tester-addr (list sua-asp-inactive sua-asp-active sua-asp-inactive))
|
|
|
|
|
|
(define (sua-asp-aspsm-i-01 tester-addr tester-port sut-addr sut-port)
|
|
(let ((fd (sua-accept tester-addr tester-port)))
|
|
(sua-wait-for-message fd sua-asp-up-message?)
|
|
(sua-send-message fd 0 (sua-make-common-header (+ sua-version 1)
|
|
sua-reserved
|
|
sua-aspsm-message-class
|
|
sua-aspup-ack-message-type
|
|
sua-common-header-length))
|
|
(let ((msg (sua-wait-for-message fd sua-error-message?)))
|
|
(close fd)
|
|
(if (= (sua-get-error-code-from-message msg)
|
|
sua-invalid-version-error-code)
|
|
sua-test-result-passed
|
|
sua-test-result-failed))))
|
|
;;; (sua-asp-aspsm-i-01 tester-addr tester-port sut-addr sut-port)
|
|
;;; This test is passed iff the SUT returns an ERROR(invalid version)
|
|
;;; (sua-run-asp tester-addr (list sua-asp-inactive))
|
|
|
|
|
|
(define (sua-asp-aspsm-i-02 tester-addr tester-port sut-addr sut-port)
|
|
(let ((fd (sua-accept tester-addr tester-port)))
|
|
(sua-wait-for-message fd sua-asp-up-message?)
|
|
(sua-send-message fd 0 (sua-make-asp-up-ack-message))
|
|
(sua-wait-for-message fd sua-asp-down-message?)
|
|
(sua-send-message fd 0 (sua-make-common-header (+ sua-version 1)
|
|
sua-reserved
|
|
sua-aspsm-message-class
|
|
sua-aspdn-ack-message-type
|
|
sua-common-header-length))
|
|
(let ((msg (sua-wait-for-message fd sua-error-message?)))
|
|
(close fd)
|
|
(if (= (sua-get-error-code-from-message msg)
|
|
sua-invalid-version-error-code)
|
|
sua-test-result-passed
|
|
sua-test-result-failed))))
|
|
;;; (sua-asp-aspsm-i-02 tester-addr tester-port sut-addr sut-port)
|
|
;;; This test is passed iff the SUT returns an ERROR(invalid version)
|
|
;;; (sua-run-asp tester-addr (list sua-asp-inactive sua-asp-down))
|
|
|
|
|
|
(define (sua-asp-aspsm-i-02-alternate tester-addr tester-port sut-addr sut-port)
|
|
(let ((fd (sua-accept tester-addr tester-port)))
|
|
(sua-wait-for-message fd sua-asp-up-message?)
|
|
(sua-send-message fd 0 (sua-make-asp-up-ack-message))
|
|
(let ((asp-active (sua-wait-for-message fd sua-asp-active-message?)))
|
|
(sua-send-message fd 0 (sua-make-asp-active-ack-message (sua-get-parameters asp-active))))
|
|
(let ((asp-inactive (sua-wait-for-message fd sua-asp-inactive-message?)))
|
|
(sua-send-message fd 0 (sua-make-asp-inactive-ack-message (sua-get-parameters asp-inactive))))
|
|
(sua-wait-for-message fd sua-asp-down-message?)
|
|
(sua-send-message fd 0 (sua-make-common-header (+ sua-version 1)
|
|
sua-reserved
|
|
sua-aspsm-message-class
|
|
sua-aspdn-ack-message-type
|
|
sua-common-header-length))
|
|
(let ((msg (sua-wait-for-message fd sua-error-message?)))
|
|
(close fd)
|
|
(if (= (sua-get-error-code-from-message msg)
|
|
sua-invalid-version-error-code)
|
|
sua-test-result-passed
|
|
sua-test-result-failed))))
|
|
;;; (sua-asp-aspsm-i-02-alternate tester-addr tester-port sut-addr sut-port)
|
|
;;; This test is passed iff the SUT sends an ASP_INACTIVE with version 1.
|
|
;;; (sua-run-asp tester-addr (list sua-asp-inactive sua-asp-active sua-asp-inactive sua-asp-down))
|
|
|
|
|
|
(define (sua-asp-aspsm-i-03 tester-addr tester-port sut-addr sut-port)
|
|
(let ((fd (sua-accept tester-addr tester-port)))
|
|
(sua-wait-for-message fd sua-asp-up-message?)
|
|
;; FIXME: Should I send the ASPUP-ACK?
|
|
;; (sua-send-message fd 0 (sua-make-asp-up-ack-message))
|
|
(sua-send-message fd 0 (sua-make-message sua-aspsm-message-class
|
|
sua-reserved-aspsm-message-type
|
|
(list)))
|
|
(let ((msg (sua-wait-for-message fd sua-error-message?)))
|
|
(close fd)
|
|
(if (= (sua-get-error-code-from-message msg)
|
|
sua-unsupported-message-type-error-code)
|
|
sua-test-result-passed
|
|
sua-test-result-failed))))
|
|
;;; (sua-asp-aspsm-i-03 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)
|
|
;;; (sua-run-asp tester-addr (list sua-asp-inactive))
|
|
|
|
|
|
(define (sua-asp-aspsm-o-01 tester-addr tester-port sut-addr sut-port)
|
|
(let ((fd (sua-accept tester-addr tester-port)))
|
|
(sua-wait-for-message fd sua-asp-up-message?)
|
|
(sua-send-message fd 0 (sua-make-asp-down-ack-message))
|
|
(let ((msg (sua-wait-for-message-with-timeout fd sua-asp-active-message? 2)))
|
|
(close fd)
|
|
(if (null? msg)
|
|
sua-test-result-passed
|
|
sua-test-result-failed))))
|
|
;;; (sua-asp-aspsm-o-01 tester-addr tester-port sut-addr sut-port)
|
|
;;; This test is passed iff the SUT does not send an ASP_ACTIVE. FIXME.
|
|
;;; (sua-run-asp tester-addr (list sua-asp-inactive))
|
|
|
|
|
|
(define (sua-asp-aspsm-o-02 tester-addr tester-port sut-addr sut-port)
|
|
(let ((fd (sua-accept tester-addr tester-port)))
|
|
(sua-wait-for-message fd sua-asp-up-message?)
|
|
(sua-send-message fd 0 (sua-make-asp-active-ack-message (list)))
|
|
(let ((msg (sua-recv-message-with-timeout fd 2)))
|
|
(close fd)
|
|
(if (or (null? msg)
|
|
(and (sua-error-message? msg)
|
|
(= (sua-get-error-code-from-message msg) sua-unexpected-message-error-code))
|
|
(sua-asp-up-message? msg))
|
|
sua-test-result-passed
|
|
(if (sua-cldt-message? msg)
|
|
sua-test-result-failed
|
|
sua-test-result-unknown)))))
|
|
;;; (sua-asp-aspsm-o-02 tester-addr tester-port sut-addr sut-port)
|
|
;;; This test is passed iff the SUT does send an ERROR(unexpected message).
|
|
;;; (sua-run-asp tester-addr (list sua-asp-inactive))
|
|
|
|
|
|
(define (sua-asp-asptm-v-01 tester-addr tester-port sut-addr sut-port)
|
|
(let ((fd (sua-accept tester-addr tester-port)))
|
|
(sua-wait-for-message fd sua-asp-up-message?)
|
|
(sua-send-message fd 0 (sua-make-asp-up-ack-message))
|
|
(let ((asp-active (sua-wait-for-message fd sua-asp-active-message?)))
|
|
(sua-send-message fd 0 (sua-make-asp-active-ack-message (sua-get-parameters asp-active))))
|
|
(close fd)
|
|
sua-test-result-passed))
|
|
;;; (sua-asp-asptm-v-01 tester-addr tester-port sut-addr sut-port)
|
|
;;; This test is passed iff the SUT sends an ASP_ACTIVE.
|
|
;;; (sua-run-asp tester-addr (list sua-asp-inactive sua-asp-active))
|
|
|
|
|
|
(define (sua-asp-asptm-v-02 tester-addr tester-port sut-addr sut-port)
|
|
(let ((fd (sua-accept tester-addr tester-port)))
|
|
(sua-wait-for-message fd sua-asp-up-message?)
|
|
(sua-send-message fd 0 (sua-make-asp-up-ack-message))
|
|
(let ((asp-active (sua-wait-for-message fd sua-asp-active-message?)))
|
|
(if (= (sua-get-version asp-active) 1)
|
|
(begin
|
|
(sua-send-message fd 0 (sua-make-asp-active-ack-message (sua-get-parameters asp-active)))
|
|
(close fd)
|
|
sua-test-result-passed)
|
|
(begin
|
|
(close fd)
|
|
sua-test-result-failed)))))
|
|
;;; (sua-asp-asptm-v-02 tester-addr tester-port sut-addr sut-port)
|
|
;;; This test is passed iff the SUT sends an ASP_ACTIVE with version 1.
|
|
;;; (sua-run-asp tester-addr (list sua-asp-inactive sua-asp-active))
|
|
|
|
|
|
(define (sua-asp-asptm-v-03 tester-addr tester-port sut-addr sut-port)
|
|
(let ((fd (sua-accept tester-addr tester-port)))
|
|
(sua-wait-for-message fd sua-asp-up-message?)
|
|
(sua-send-message fd 0 (sua-make-asp-up-ack-message))
|
|
(let ((asp-active (sua-wait-for-message fd sua-asp-active-message?)))
|
|
(sua-send-message fd 0 (sua-make-asp-active-ack-message (sua-get-parameters asp-active))))
|
|
(let ((asp-inactive (sua-wait-for-message fd sua-asp-inactive-message?)))
|
|
(if (= (sua-get-version asp-inactive) 1)
|
|
(begin
|
|
(sua-send-message fd 0 (sua-make-asp-inactive-ack-message (sua-get-parameters asp-inactive)))
|
|
(close fd)
|
|
sua-test-result-passed)
|
|
(begin
|
|
(close fd)
|
|
sua-test-result-failed)))))
|
|
;;; (sua-asp-asptm-v-03 tester-addr tester-port sut-addr sut-port)
|
|
;;; This test is passed iff the SUT sends an ASP_INACTIVE with version 1.
|
|
;;; (sua-run-asp tester-addr (list sua-asp-inactive sua-asp-active sua-asp-inactive))
|
|
|
|
|
|
(define (sua-asp-asptm-v-04 tester-addr tester-port sut-addr sut-port)
|
|
(let ((fd (sua-accept tester-addr tester-port)))
|
|
(sua-wait-for-message fd sua-asp-up-message?)
|
|
(sua-send-message fd 0 (sua-make-asp-up-ack-message))
|
|
(let ((asp-active (sua-wait-for-message fd sua-asp-active-message?))
|
|
(heartbeat-data (random-bytes 5000)))
|
|
(sua-send-message fd 0 (sua-make-asp-active-ack-message (sua-get-parameters asp-active)))
|
|
(sua-send-message fd 0 (sua-make-beat-message heartbeat-data))
|
|
(let ((m (sua-wait-for-message fd (lambda (m) (or (sua-beat-ack-message? m)
|
|
(sua-error-message? m))))))
|
|
(close fd)
|
|
(if (sua-beat-ack-message? m)
|
|
sua-test-result-passed
|
|
sua-test-result-failed)))))
|
|
;;; (sua-asp-asptm-v-04 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.
|
|
;;; (sua-run-asp tester-addr (list sua-asp-inactive sua-asp-active sua-asp-reflect-beat))
|
|
|
|
|
|
(define (sua-asp-asptm-v-05 tester-addr tester-port sut-addr sut-port)
|
|
(let ((fd (sua-accept tester-addr tester-port)))
|
|
(sua-wait-for-message fd sua-asp-up-message?)
|
|
(sua-send-message fd 0 (sua-make-asp-up-ack-message))
|
|
(let ((asp-active (sua-wait-for-message fd sua-asp-active-message?))
|
|
(heartbeat-data (random-bytes 600)))
|
|
(sua-send-message fd 0 (sua-make-asp-active-ack-message (sua-get-parameters asp-active)))
|
|
(sua-send-message fd 0 (sua-make-beat-message heartbeat-data))
|
|
(let ((m (sua-wait-for-message fd (lambda (m) (or (sua-beat-ack-message? m)
|
|
(sua-error-message? m))))))
|
|
(close fd)
|
|
(if (and (sua-beat-ack-message? m)
|
|
(equal? (sua-make-beat-ack-message heartbeat-data) m))
|
|
sua-test-result-passed
|
|
sua-test-result-failed)))))
|
|
;;; (sua-asp-asptm-v-05 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.
|
|
;;; (sua-run-asp tester-addr (list sua-asp-inactive sua-asp-active sua-asp-reflect-beat))
|
|
|
|
|
|
(define (sua-asp-asptm-i-01 tester-addr tester-port sut-addr sut-port)
|
|
(let ((fd (sua-accept tester-addr tester-port)))
|
|
(sua-wait-for-message fd sua-asp-up-message?)
|
|
(sua-send-message fd 0 (sua-make-asp-up-ack-message))
|
|
(let ((asp-active (sua-wait-for-message fd sua-asp-active-message?)))
|
|
(sua-send-message fd 0 (sua-increment-version
|
|
(sua-make-asp-active-ack-message (sua-get-parameters asp-active))))
|
|
(let ((msg (sua-wait-for-message fd sua-error-message?)))
|
|
(close fd)
|
|
(if (= (sua-get-error-code-from-message msg)
|
|
sua-invalid-version-error-code)
|
|
sua-test-result-passed
|
|
sua-test-result-failed)))))
|
|
;;; (sua-asp-asptm-i-01 tester-addr tester-port sut-addr sut-port)
|
|
;;; This test is passed iff the SUT sends an ERROR(invalid version).
|
|
;;; (sua-run-asp tester-addr (list sua-asp-inactive sua-asp-active))
|
|
|
|
|
|
(define (sua-asp-asptm-i-02 tester-addr tester-port sut-addr sut-port)
|
|
(let ((fd (sua-accept tester-addr tester-port)))
|
|
(sua-wait-for-message fd sua-asp-up-message?)
|
|
(sua-send-message fd 0 (sua-make-asp-up-ack-message))
|
|
(let ((asp-active (sua-wait-for-message fd sua-asp-active-message?)))
|
|
(sua-send-message fd 0 (sua-make-asp-active-ack-message (sua-get-parameters asp-active)))
|
|
(sua-wait-for-message fd sua-asp-inactive-message?)
|
|
(sua-send-message fd 0 (sua-increment-version
|
|
(sua-make-asp-inactive-ack-message (sua-get-parameters asp-active))))
|
|
(let ((msg (sua-wait-for-message fd sua-error-message?)))
|
|
(close fd)
|
|
(if (= (sua-get-error-code-from-message msg)
|
|
sua-invalid-version-error-code)
|
|
sua-test-result-passed
|
|
sua-test-result-failed)))))
|
|
;;; (sua-asp-asptm-i-02 tester-addr tester-port sut-addr sut-port)
|
|
;;; This test is passed iff the SUT sends an ERROR(invalid version).
|
|
;;; (sua-run-asp tester-addr (list sua-asp-inactive sua-asp-active sua-asp-inactive))
|
|
|
|
|
|
(define (sua-asp-asptm-i-03 tester-addr tester-port sut-addr sut-port)
|
|
(let ((fd (sua-accept tester-addr tester-port)))
|
|
(sua-wait-for-message fd sua-asp-up-message?)
|
|
(sua-send-message fd 0 (sua-make-asp-up-ack-message))
|
|
(let ((asp-active (sua-wait-for-message fd sua-asp-active-message?)))
|
|
(sua-send-message fd 0 (sua-make-message sua-asptm-message-class
|
|
sua-reserved-asptm-message-type
|
|
(list)))
|
|
(let ((msg (sua-wait-for-message fd sua-error-message?)))
|
|
(close fd)
|
|
(if (= (sua-get-error-code-from-message msg)
|
|
sua-unsupported-message-type-error-code)
|
|
sua-test-result-passed
|
|
sua-test-result-failed)))))
|
|
;;; (sua-asp-asptm-i-03 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).
|
|
;;; (sua-run-asp tester-addr (list sua-asp-inactive sua-asp-active))
|
|
|
|
|
|
(define (sua-asp-asptm-o-01 tester-addr tester-port sut-addr sut-port)
|
|
(let ((fd (sua-accept tester-addr tester-port)))
|
|
(sua-wait-for-message fd sua-asp-up-message?)
|
|
(sua-send-message fd 0 (sua-make-asp-up-ack-message))
|
|
(sua-wait-for-message fd sua-asp-active-message?)
|
|
(sua-send-message fd 0 (sua-make-asp-up-ack-message))
|
|
(let ((msg (sua-recv-message-with-timeout fd 2)))
|
|
(close fd)
|
|
(if (or (null? msg)
|
|
(and (sua-error-message? msg)
|
|
(= (sua-get-error-code-from-message msg) sua-unexpected-message-error-code))
|
|
(sua-asp-active-message? msg))
|
|
sua-test-result-passed
|
|
(if (sua-data-message? msg)
|
|
sua-test-result-failed
|
|
sua-test-result-unknown)))))
|
|
;;; (sua-asp-asptm-o-01 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?
|
|
;;; (sua-run-asp tester-addr (list sua-asp-inactive sua-asp-active))
|
|
|
|
|
|
(define (sua-asp-mtr-v-01 tester-addr tester-port sut-addr sut-port)
|
|
(let ((fd (sua-accept tester-addr tester-port)))
|
|
(sua-wait-for-message fd sua-asp-up-message?)
|
|
(sua-send-message fd 0 (sua-make-asp-up-ack-message))
|
|
(let ((asp-active (sua-wait-for-message fd sua-asp-active-message?)))
|
|
(sua-send-message fd 0 (sua-make-asp-active-ack-message (sua-get-parameters asp-active)))
|
|
(let ((m (sua-wait-for-message fd (lambda (m) (or (sua-cldt-message? m)
|
|
(sua-daud-message? m))))))
|
|
(if (sua-daud-message? m)
|
|
(begin
|
|
(sua-send-message fd 0 (sua-make-dava-message (sua-get-parameters m)))
|
|
(sua-wait-for-message fd sua-cldt-message?))))
|
|
(close fd)
|
|
sua-test-result-unknown)))
|
|
;;; (sua-asp-mtr-v-01 tester-addr tester-port sut-addr sut-port)
|
|
;;; This test is passed iff the SUT sends DATA including a RC.
|
|
;;; FIXME
|
|
;;; (sua-run-asp tester-addr (list sua-asp-inactive sua-asp-active sua-asp-send-data))
|
|
|
|
|
|
(define sua-asp-mtr-v-02 sua-asp-mtr-v-01)
|
|
;;; (sua-asp-mtr-v-02 tester-addr tester-port sut-addr sut-port)
|
|
;;; This test is passed iff the SUT sends DATA including data.
|
|
;;; FIXME
|
|
;;; (sua-run-asp tester-addr (list sua-asp-inactive sua-asp-active sua-asp-send-data))
|
|
|
|
|
|
(define sua-asp-mtr-v-03 sua-asp-mtr-v-01)
|
|
;;; (sua-asp-mtr-v-03 tester-addr tester-port sut-addr sut-port)
|
|
;;; This test is passed iff the SUT sends DATA in a valid stream .
|
|
;;; FIXME
|
|
;;; (sua-run-asp tester-addr (list sua-asp-inactive sua-asp-active sua-asp-send-data))
|
|
|
|
|
|
(define (sua-asp-mtr-i-01 tester-addr tester-port sut-addr sut-port)
|
|
(let ((fd (sua-accept tester-addr tester-port)))
|
|
(sua-wait-for-message fd sua-asp-up-message?)
|
|
(sua-send-message fd 0 (sua-make-asp-up-ack-message))
|
|
(let ((asp-active (sua-wait-for-message fd sua-asp-active-message?)))
|
|
(sua-send-message fd 0 (sua-make-asp-active-ack-message (sua-get-parameters asp-active))))
|
|
(sua-send-message fd 1 (append (sua-make-common-header (+ 1 sua-version)
|
|
sua-reserved
|
|
sua-connection-less-message-class
|
|
sua-cldt-message-type
|
|
(+ sua-common-header-length
|
|
8 8 24 24 8 4
|
|
(length sccp-test-message)))
|
|
(sua-make-routing-context-parameter (list tester-rc-valid))
|
|
(sua-make-protocol-class-parameter sua-protocol-class-0 #f)
|
|
(sua-make-source-address-parameter sua-route-on-ssn-and-pc-indicator
|
|
sua-address-indicator-ssn-mask
|
|
(list (sua-make-point-code-parameter tester-pc)
|
|
(sua-make-subsystem-number-parameter tester-ssn)))
|
|
(sua-make-destination-address-parameter sua-route-on-ssn-and-pc-indicator
|
|
sua-address-indicator-ssn-mask
|
|
(list (sua-make-point-code-parameter sut-pc)
|
|
(sua-make-subsystem-number-parameter sut-ssn)))
|
|
(sua-make-sequence-control-parameter 0)
|
|
(sua-make-data-parameter sccp-test-message)))
|
|
(let ((msg (sua-wait-for-message fd sua-error-message?)))
|
|
(close fd)
|
|
(if (= (sua-get-error-code-from-message msg)
|
|
sua-invalid-version-error-code)
|
|
sua-test-result-passed
|
|
sua-test-result-failed))))
|
|
;;; (sua-asp-mtr-i-01 tester-addr tester-port sut-addr sut-port)
|
|
;;; This test is passed iff the SUT sends an ERROR(invalid version).
|
|
;;; (sua-run-asp tester-addr (list sua-asp-inactive sua-asp-active sua-asp-receive-data))
|
|
|
|
|
|
(define (sua-asp-mtr-i-02 tester-addr tester-port sut-addr sut-port)
|
|
(let ((fd (sua-accept tester-addr tester-port)))
|
|
(sua-wait-for-message fd sua-asp-up-message?)
|
|
(sua-send-message fd 0 (sua-make-asp-up-ack-message))
|
|
(let ((asp-active (sua-wait-for-message fd sua-asp-active-message?)))
|
|
(sua-send-message fd 0 (sua-make-asp-active-ack-message (sua-get-parameters asp-active)))
|
|
(sua-send-message fd 0 (sua-make-message sua-reserved-message-class 0 (list)))
|
|
(let ((msg (sua-wait-for-message fd sua-error-message?)))
|
|
(close fd)
|
|
(if (= (sua-get-error-code-from-message msg)
|
|
sua-unsupported-message-class-error-code)
|
|
sua-test-result-passed
|
|
sua-test-result-failed)))))
|
|
;;; (sua-asp-mtr-i-02 tester-addr tester-port sut-addr sut-port)
|
|
;;; This test is passed iff the SUT sends an ERROR(unsupported message class).
|
|
;;; (sua-run-asp tester-addr (list sua-asp-inactive sua-asp-active sua-asp-receive-data))
|
|
|
|
|
|
(define (sua-asp-mtr-i-03 tester-addr tester-port sut-addr sut-port)
|
|
(let ((fd (sua-accept tester-addr tester-port)))
|
|
(sua-wait-for-message fd sua-asp-up-message?)
|
|
(sua-send-message fd 0 (sua-make-asp-up-ack-message))
|
|
(let ((asp-active (sua-wait-for-message fd sua-asp-active-message?)))
|
|
(sua-send-message fd 0 (sua-make-asp-active-ack-message (sua-get-parameters asp-active)))
|
|
(sua-send-message fd 0 (sua-make-message sua-connection-less-message-class
|
|
sua-reserved-cl-message-type
|
|
(list)))
|
|
(let ((msg (sua-wait-for-message fd sua-error-message?)))
|
|
(close fd)
|
|
(if (= (sua-get-error-code-from-message msg)
|
|
sua-unsupported-message-type-error-code)
|
|
sua-test-result-passed
|
|
sua-test-result-failed)))))
|
|
;;; (sua-asp-mtr-i-03 tester-addr tester-port sut-addr sut-port)
|
|
;;; This test is passed iff the SUT sends an ERROR(unsupported message type).
|
|
;;; (sua-run-asp tester-addr (list sua-asp-inactive sua-asp-active sua-asp-receive-data))
|
|
|
|
|
|
(define (sua-asp-mtr-i-04 tester-addr tester-port sut-addr sut-port)
|
|
(let ((fd (sua-accept tester-addr tester-port)))
|
|
(sua-wait-for-message fd sua-asp-up-message?)
|
|
(sua-send-message fd 0 (sua-make-asp-up-ack-message))
|
|
(let ((asp-active (sua-wait-for-message fd sua-asp-active-message?)))
|
|
(sua-send-message fd 0 (sua-make-asp-active-ack-message (sua-get-parameters asp-active)))
|
|
(sua-send-message fd 0 (sua-make-message sua-connection-oriented-message-class
|
|
sua-reserved-co-message-type
|
|
(list)))
|
|
(let ((msg (sua-wait-for-message fd sua-error-message?)))
|
|
(close fd)
|
|
(if (= (sua-get-error-code-from-message msg)
|
|
sua-unsupported-message-type-error-code)
|
|
sua-test-result-passed
|
|
sua-test-result-failed)))))
|
|
;;; (sua-asp-mtr-i-04 tester-addr tester-port sut-addr sut-port)
|
|
;;; This test is passed iff the SUT sends an ERROR(unsupported message type).
|
|
;;; (sua-run-asp tester-addr (list sua-asp-inactive sua-asp-active sua-asp-receive-data))
|
|
|
|
|