From patchwork Thu Jun 16 16:31:19 2011 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Janis Johnson X-Patchwork-Id: 100662 Return-Path: X-Original-To: incoming@patchwork.ozlabs.org Delivered-To: patchwork-incoming@bilbo.ozlabs.org Received: from sourceware.org (server1.sourceware.org [209.132.180.131]) by ozlabs.org (Postfix) with SMTP id E6A84B6F8C for ; Fri, 17 Jun 2011 02:30:13 +1000 (EST) Received: (qmail 10666 invoked by alias); 16 Jun 2011 16:30:09 -0000 Received: (qmail 10657 invoked by uid 22791); 16 Jun 2011 16:30:08 -0000 X-SWARE-Spam-Status: No, hits=-1.8 required=5.0 tests=AWL, BAYES_00, T_RP_MATCHES_RCVD X-Spam-Check-By: sourceware.org Received: from mail.codesourcery.com (HELO mail.codesourcery.com) (38.113.113.100) by sourceware.org (qpsmtpd/0.43rc1) with ESMTP; Thu, 16 Jun 2011 16:29:51 +0000 Received: (qmail 32462 invoked from network); 16 Jun 2011 16:29:50 -0000 Received: from unknown (HELO ?192.168.1.5?) (janisjo@127.0.0.2) by mail.codesourcery.com with ESMTPA; 16 Jun 2011 16:29:50 -0000 Message-ID: <4DFA2FD7.2070706@codesourcery.com> Date: Thu, 16 Jun 2011 09:31:19 -0700 From: Janis Johnson User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.9.2.17) Gecko/20110424 Thunderbird/3.1.10 MIME-Version: 1.0 To: "gcc-patches@gcc.gnu.org" Subject: [testsuite] dg-final object-size: fail if file does not exist X-IsSubscribed: yes Mailing-List: contact gcc-patches-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Unsubscribe: List-Archive: List-Post: List-Help: Sender: gcc-patches-owner@gcc.gnu.org Delivered-To: mailing list gcc-patches@gcc.gnu.org Currently the dg-final check "object-size" results in ERROR if the assemble failed and the object file does not exist. This patch fails the test instead. OK for trunk? Janis 2011-06-16 Janis Johnson * lib/scanasm.exp (object-size): Fail if object file does not exist. Index: lib/scanasm.exp =================================================================== --- lib/scanasm.exp (revision 175083) +++ lib/scanasm.exp (working copy) @@ -351,6 +351,10 @@ upvar 2 name testcase set testcase [lindex $testcase 0] set output_file "[file rootname [file tail $testcase]].o" + if ![file_on_host exists $output_file] { + fail "$testcase $output_file does not exist" + return + } set output [remote_exec host "$size" "$output_file"] set status [lindex $output 0] if { $status != 0 } {