mcs/class/Microsoft.JScript/Test/Mozilla/ecma_3/RegExp/15.10.4.1-1.js

   1 /* ***** BEGIN LICENSE BLOCK *****\r
   2  * Version: MPL 1.1/GPL 2.0/LGPL 2.1\r
   3  *\r
   4  * The contents of this file are subject to the Mozilla Public License Version\r
   5  * 1.1 (the "License"); you may not use this file except in compliance with\r
   6  * the License. You may obtain a copy of the License at\r
   7  * http://www.mozilla.org/MPL/\r
   8  *\r
   9  * Software distributed under the License is distributed on an "AS IS" basis,\r
  10  * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License\r
  11  * for the specific language governing rights and limitations under the\r
  12  * License.\r
  13  *\r
  14  * The Original Code is mozilla.org code.\r
  15  *\r
  16  * The Initial Developer of the Original Code is\r
  17  * Netscape Communications Corporation.\r
  18  * Portions created by the Initial Developer are Copyright (C) 1998\r
  19  * the Initial Developer. All Rights Reserved.\r
  20  *\r
  21  * Contributor(s):\r
  22  *   pschwartau@netscape.com\r
  23  *\r
  24  * Alternatively, the contents of this file may be used under the terms of\r
  25  * either the GNU General Public License Version 2 or later (the "GPL"), or\r
  26  * the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),\r
  27  * in which case the provisions of the GPL or the LGPL are applicable instead\r
  28  * of those above. If you wish to allow use of your version of this file only\r
  29  * under the terms of either the GPL or the LGPL, and not to allow others to\r
  30  * use your version of this file under the terms of the MPL, indicate your\r
  31  * decision by deleting the provisions above and replace them with the notice\r
  32  * and other provisions required by the GPL or the LGPL. If you do not delete\r
  33  * the provisions above, a recipient may use your version of this file under\r
  34  * the terms of any one of the MPL, the GPL or the LGPL.\r
  35  *\r
  36  * ***** END LICENSE BLOCK *****\r
  37  *\r
  38  * Date: 26 November 2000\r
  39  *\r
  40  *\r
  41  *SUMMARY: Passing a RegExp object to a RegExp() constructor. \r
  42  *This test arose from Bugzilla bug 61266. The ECMA3 section is:       \r
  43  *\r
  44  *  15.10.4.1 new RegExp(pattern, flags)\r
  45  *\r
  46  *  If pattern is an object R whose [[Class]] property is "RegExp" and \r
  47  *  flags is undefined, then let P be the pattern used to construct R \r
  48  *  and let F be the flags used to construct R. If pattern is an object R\r
  49  *  whose [[Class]] property is "RegExp" and flags is not undefined, \r
  50  *  then throw a TypeError exception. Otherwise, let P be the empty string  \r
  51  *  if pattern is undefined and ToString(pattern) otherwise, and let F be \r
  52  *  the empty string if flags is undefined and ToString(flags) otherwise.\r
  53  *\r
  54  *\r
  55  *The current test will check the first scenario outlined above:\r
  56  *\r
  57  *   "pattern" is itself a RegExp object R\r
  58  *   "flags"  is undefined\r
  59  *\r
  60  * We check that a new RegExp object obj2 defined from these parameters\r
  61  * is morally the same as the original RegExp object obj1. Of course, they \r
  62  * can't be equal as objects - so we check their enumerable properties...\r
  63  *\r
  64  * In this test, the initial RegExp object obj1 will not include a flag. The flags\r
  65  * parameter for obj2  will be undefined in the sense of not being provided.\r
  66  */\r
  67 //-------------------------------------------------------------------------------------------------\r
  68 var bug = '61266';\r
  69 var summary = 'Passing a RegExp object to a RegExp() constructor';\r
  70 var statprefix = 'Applying RegExp() twice to pattern ';\r
  71 var statsuffix =  '; testing property ';\r
  72 var singlequote = "'";\r
  73 var i = -1; var s = '';\r
  74 var obj1 = {}; var obj2 = {};\r
  75 var status = ''; var actual = ''; var expect = ''; var msg = '';\r
  76 var patterns = new Array();  \r
  77 \r
  78 \r
  79 // various regular expressions to try -\r
  80 patterns[0] = '';\r
  81 patterns[1] = 'abc';\r
  82 patterns[2] = '(.*)(3-1)\s\w';\r
  83 patterns[3] = '(.*)(...)\\s\\w';\r
  84 patterns[4] = '[^A-Za-z0-9_]';\r
  85 patterns[5] = '[^\f\n\r\t\v](123.5)([4 - 8]$)';\r
  86 \r
  87 \r
  88 \r
  89 //-------------------------------------------------------------------------------------------------\r
  90 test();\r
  91 //-------------------------------------------------------------------------------------------------\r
  92 \r
  93 \r
  94 function test() \r
  95 {\r
  96   enterFunc ('test'); \r
  97   printBugNumber (bug);\r
  98   printStatus (summary);\r
  99 \r
 100   for (i in patterns)\r
 101   {\r
 102     s = patterns[i];\r
 103     status =getStatus(s);   \r
 104     obj1 = new RegExp(s); \r
 105     obj2 = new RegExp(obj1); \r
 106   \r
 107     for (prop in obj2)\r
 108     { \r
 109       msg  = status +  quote(prop); \r
 110       actual = obj2[prop]; \r
 111       expect = obj1[prop];\r
 112       reportCompare (expect, actual, msg);\r
 113     }\r
 114   }\r
 115 \r
 116   exitFunc ('test');\r
 117 }\r
 118 \r
 119 \r
 120 function getStatus(regexp)\r
 121 { \r
 122   return (statprefix  +  quote(regexp) +  statsuffix); \r
 123 }\r
 124 \r
 125 \r
 126 function quote(text)\r
 127 {\r
 128   return (singlequote  +  text  + singlequote);\r
 129 }