Add default selector exclution flag to test.dart

tools/testing/dart/test_options.dart

 // Copyright (c) 2013, the Dart project authors.  Please see the AUTHORS file
 // for details. All rights reserved. Use of this source code is governed by a
 // BSD-style license that can be found in the LICENSE file.
 
 library test_options_parser;
 
 import "dart:io";
 import "drt_updater.dart";
 import "test_suite.dart";
 import "compiler_configuration.dart" show CompilerConfiguration;
@@ skipping 386 matching lines @@
               'test options. Used to be able to make sane updates to the '
               'status files.',
               ['--builder-tag'],
               [],
               ''),
           new _TestOptionSpecification(
               'vm_options',
               'Extra options to send to the vm when running',
               ['--vm-options'],
               [],
+              null),
+          new _TestOptionSpecification(
+              'exclude_suite',
+              'Exclude suites from default selector, only works when no'
+              ' selector has been specified on the command line',
+              ['--exclude-suite'],
+              defaultTestSelectors,
               null),];
   }
 
 
   /**
    * Parse a list of strings as test options.
    *
    * Returns a list of configurations in which to run the
    * tests. Configurations are maps mapping from option keys to
    * values. When encountering the first non-option string, the rest
@@ skipping 252 matching lines @@
     // Allow suppression that is valid for all ie versions
     configuration['ie'] = runtime.startsWith('ie');
 
     // Expand the test selectors into a suite name and a simple
     // regular expressions to be used on the full path of a test file
     // in that test suite. If no selectors are explicitly given use
     // the default suite patterns.
     var selectors = configuration['selectors'];
     if (selectors is !Map) {
       if (selectors == null) {
-        selectors = defaultTestSelectors;
+        selectors = new List.from(defaultTestSelectors);
+        var exclude_suites = configuration['exclude_suite'] != null ?
+              configuration['exclude_suite'].split(',') : [];
+        for (var exclude in exclude_suites) {
+          if (selectors.contains(exclude)) {
+            selectors.remove(exclude);
+          } else {
+            print("Error: default selectors does not contain $exclude");
+            exit(1);
+          }
+        }
       }
       Map<String, RegExp> selectorMap = new Map<String, RegExp>();
       for (var i = 0; i < selectors.length; i++) {
         var pattern = selectors[i];
         var suite = pattern;
         var slashLocation = pattern.indexOf('/');
         if (slashLocation != -1) {
           suite = pattern.substring(0, slashLocation);
           pattern = pattern.substring(slashLocation + 1);
           pattern = pattern.replaceAll('*', '.*');
@@ skipping 120 matching lines @@
         return option;
       }
     }
     print('Unknown test option $name');
     exit(1);
   }
 
 
   List<_TestOptionSpecification> _options;
 }