From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <cgen-return-2321-listarch-cgen=sources.redhat.com@sourceware.org>
Received: (qmail 2121 invoked by alias); 18 Aug 2009 01:43:47 -0000
Received: (qmail 2112 invoked by uid 22791); 18 Aug 2009 01:43:46 -0000
X-SWARE-Spam-Status: No, hits=0.1 required=5.0 	tests=AWL,BAYES_00,DNS_FROM_RFC_BOGUSMX,J_CHICKENPOX_73
X-Spam-Check-By: sourceware.org
Received: from sebabeach.org (HELO sebabeach.org) (64.165.110.50)     by sourceware.org (qpsmtpd/0.43rc1) with ESMTP; Tue, 18 Aug 2009 01:43:40 +0000
Received: by sebabeach.org (Postfix, from userid 500) 	id ADC1D6E3D1; Mon, 17 Aug 2009 18:43:38 -0700 (PDT)
From: Doug Evans <dje@sebabeach.org>
To: cgen@sourceware.org
Subject: new .internal-test pmacro
Message-Id: <20090818014338.ADC1D6E3D1@sebabeach.org>
Date: Tue, 18 Aug 2009 01:43:00 -0000
X-IsSubscribed: yes
Mailing-List: contact cgen-help@sourceware.org; run by ezmlm
Precedence: bulk
List-Id: <cgen.sourceware.org>
List-Subscribe: <mailto:cgen-subscribe@sourceware.org>
List-Archive: <http://sourceware.org/ml/cgen/>
List-Post: <mailto:cgen@sourceware.org>
List-Help: <mailto:cgen-help@sourceware.org>, <http://sourceware.org/lists.html#faqs>
Sender: cgen-owner@sourceware.org
X-SW-Source: 2009-q3/txt/msg00055.txt.bz2

fyi,
I wanted a way of writing tests while keeping them relatively
self-contained so I added .internal-test.

2009-08-17  Doug Evans  <dje@sebabeach.org>

	* pmacros.scm (-pmacro-builtin-internal-test): New function.
	(pmacros-init!): Add .internal-test.
	* testsuite/test-utils.sh.in (post_process): Tweak FAIL output.
	* testsuite/testsuite.cpu (internal-verify): New pmacro.
	* doc/pmacros.text: Document .internal-test.

E.g. from testsuite/names-comments-1.test:

# Test handling of names and comments.

test=names-comments-1

source ./test-utils.sh

cpu_file=${test}.test.cpu
rm -f ${cpu_file}

cat > ${cpu_file} <<EOF
(include "${srcdir}/../cpu/simplify.inc")
(include "${srcdir}/testsuite.cpu")

(define-insn (name (add 3))
             (comment (("This is a" " comment")
                       " constructed as a list."))
             (syntax "add3")
	     (semantics (sequence VOID nop))
)

;; Verify the correct insn got created.
;; ??? Also need to verify the comment's contents.
(internal-verify "lists in names" (current-insn-lookup 'add3))
EOF

run_cgen ${cpu_file}

post_process

finish