diff options
Diffstat (limited to 'testsuite/runtest.libs')
-rw-r--r-- | testsuite/runtest.libs/dg.test | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/testsuite/runtest.libs/dg.test b/testsuite/runtest.libs/dg.test index e0a2416..617a4b7 100644 --- a/testsuite/runtest.libs/dg.test +++ b/testsuite/runtest.libs/dg.test @@ -96,6 +96,7 @@ create_test_interpreter dg-test-1 { mocks { # minor test shims prune_warnings { text } { $text } + isnative { } { 1 } unknown { args } { [error "unknown $args"] } # results collection pass { message } { 0 } @@ -121,6 +122,12 @@ foreach {type token line} { } { create_mock_file dg-test-vfs "dg/basic-${type}-${token}" \ "# test file for dg.exp\n$line\n" + if { $token ne "build" && $token ne "excess" } { + regsub -- {\{ dg-} $line "\n\n&" line + regsub -- { \}\Z} $line " {target *-*-*} 2&" line + create_mock_file dg-test-vfs "dg/linum-${type}-${token}" \ + "#test file for dg.exp\n$line\n" + } } dg-test-1 eval {proc send_log { text } { puts $text }} @@ -159,6 +166,11 @@ foreach { type token message } { test_proc_with_mocks "test with dg/basic-${type}-${token}" dg-test-1 \ [list dg-runtest dg/basic-${type}-${token} "" ""] \ check_calls $check_calls + if { $token ne "build" && $token ne "excess" } { + test_proc_with_mocks "test with dg/linum-${type}-${token}" dg-test-1 \ + [list dg-runtest dg/linum-${type}-${token} "" ""] \ + check_calls $check_calls + } } dg-test-1 eval dg-finish |