Reviewed by Geoff Garen.
[WebKit-https.git] / JavaScriptCore / API / tests / testapi.c
1 /* -*- mode: c; c-basic-offset: 4 -*- */
2 /*
3  * Copyright (C) 2006 Apple Computer, Inc.  All rights reserved.
4  *
5  * Redistribution and use in source and binary forms, with or without
6  * modification, are permitted provided that the following conditions
7  * are met:
8  * 1. Redistributions of source code must retain the above copyright
9  *    notice, this list of conditions and the following disclaimer.
10  * 2. Redistributions in binary form must reproduce the above copyright
11  *    notice, this list of conditions and the following disclaimer in the
12  *    documentation and/or other materials provided with the distribution.
13  *
14  * THIS SOFTWARE IS PROVIDED BY APPLE COMPUTER, INC. ``AS IS'' AND ANY
15  * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
16  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
17  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL APPLE COMPUTER, INC. OR
18  * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
19  * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
20  * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
21  * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY
22  * OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
23  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
24  * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 
25  */
26
27 #include "JavaScriptCore.h"
28 #include <math.h>
29 #include <wtf/Assertions.h>
30 #include <wtf/UnusedParam.h>
31
32 #if COMPILER(MSVC)
33
34 #include <wtf/MathExtras.h>
35
36 static double nan(const char*)
37 {
38     return std::numeric_limits<double>::quiet_NaN();
39 }
40
41 #endif
42
43 static JSGlobalContextRef context = 0;
44
45 static void assertEqualsAsBoolean(JSValueRef value, bool expectedValue)
46 {
47     if (JSValueToBoolean(context, value) != expectedValue)
48         fprintf(stderr, "assertEqualsAsBoolean failed: %p, %d\n", value, expectedValue);
49 }
50
51 static void assertEqualsAsNumber(JSValueRef value, double expectedValue)
52 {
53     double number = JSValueToNumber(context, value, NULL);
54
55     // FIXME <rdar://4668451> - On i386 the isnan(double) macro tries to map to the isnan(float) function,
56     // causing a build break with -Wshorten-64-to-32 enabled.  The issue is known by the appropriate team.
57     // After that's resolved, we can remove these casts
58     if (number != expectedValue && !(isnan((float)number) && isnan((float)expectedValue)))
59         fprintf(stderr, "assertEqualsAsNumber failed: %p, %lf\n", value, expectedValue);
60 }
61
62 static void assertEqualsAsUTF8String(JSValueRef value, const char* expectedValue)
63 {
64     JSStringRef valueAsString = JSValueToStringCopy(context, value, NULL);
65
66     size_t jsSize = JSStringGetMaximumUTF8CStringSize(valueAsString);
67     char* jsBuffer = (char*)malloc(jsSize);
68     JSStringGetUTF8CString(valueAsString, jsBuffer, jsSize);
69     
70     unsigned i;
71     for (i = 0; jsBuffer[i]; i++)
72         if (jsBuffer[i] != expectedValue[i])
73             fprintf(stderr, "assertEqualsAsUTF8String failed at character %d: %c(%d) != %c(%d)\n", i, jsBuffer[i], jsBuffer[i], expectedValue[i], expectedValue[i]);
74         
75     if (jsSize < strlen(jsBuffer) + 1)
76         fprintf(stderr, "assertEqualsAsUTF8String failed: jsSize was too small\n");
77
78     free(jsBuffer);
79     JSStringRelease(valueAsString);
80 }
81
82 static void assertEqualsAsCharactersPtr(JSValueRef value, const char* expectedValue)
83 {
84     JSStringRef valueAsString = JSValueToStringCopy(context, value, NULL);
85
86     size_t jsLength = JSStringGetLength(valueAsString);
87     const JSChar* jsBuffer = JSStringGetCharactersPtr(valueAsString);
88
89     CFStringRef expectedValueAsCFString = CFStringCreateWithCString(kCFAllocatorDefault, 
90                                                                     expectedValue,
91                                                                     kCFStringEncodingUTF8);    
92     CFIndex cfLength = CFStringGetLength(expectedValueAsCFString);
93     UniChar* cfBuffer = (UniChar*)malloc(cfLength * sizeof(UniChar));
94     CFStringGetCharacters(expectedValueAsCFString, CFRangeMake(0, cfLength), cfBuffer);
95     CFRelease(expectedValueAsCFString);
96
97     if (memcmp(jsBuffer, cfBuffer, cfLength * sizeof(UniChar)) != 0)
98         fprintf(stderr, "assertEqualsAsCharactersPtr failed: jsBuffer != cfBuffer\n");
99     
100     if (jsLength != (size_t)cfLength)
101         fprintf(stderr, "assertEqualsAsCharactersPtr failed: jsLength(%ld) != cfLength(%ld)\n", jsLength, cfLength);
102     
103     free(cfBuffer);
104     JSStringRelease(valueAsString);
105 }
106
107 static JSValueRef jsGlobalValue; // non-stack value for testing JSValueProtect()
108
109 /* MyObject pseudo-class */
110
111 static bool MyObject_hasProperty(JSContextRef context, JSObjectRef object, JSStringRef propertyName)
112 {
113     UNUSED_PARAM(context);
114     UNUSED_PARAM(object);
115
116     if (JSStringIsEqualToUTF8CString(propertyName, "alwaysOne")
117         || JSStringIsEqualToUTF8CString(propertyName, "cantFind")
118         || JSStringIsEqualToUTF8CString(propertyName, "myPropertyName")
119         || JSStringIsEqualToUTF8CString(propertyName, "hasPropertyLie")
120         || JSStringIsEqualToUTF8CString(propertyName, "0")) {
121         return true;
122     }
123     
124     return false;
125 }
126
127 static JSValueRef MyObject_getProperty(JSContextRef context, JSObjectRef object, JSStringRef propertyName, JSValueRef* exception)
128 {
129     UNUSED_PARAM(context);
130     UNUSED_PARAM(object);
131     
132     if (JSStringIsEqualToUTF8CString(propertyName, "alwaysOne")) {
133         return JSValueMakeNumber(context, 1);
134     }
135     
136     if (JSStringIsEqualToUTF8CString(propertyName, "myPropertyName")) {
137         return JSValueMakeNumber(context, 1);
138     }
139
140     if (JSStringIsEqualToUTF8CString(propertyName, "cantFind")) {
141         return JSValueMakeUndefined(context);
142     }
143     
144     if (JSStringIsEqualToUTF8CString(propertyName, "0")) {
145         *exception = JSValueMakeNumber(context, 1);
146         return JSValueMakeNumber(context, 1);
147     }
148     
149     return NULL;
150 }
151
152 static bool MyObject_setProperty(JSContextRef context, JSObjectRef object, JSStringRef propertyName, JSValueRef value, JSValueRef* exception)
153 {
154     UNUSED_PARAM(context);
155     UNUSED_PARAM(object);
156     UNUSED_PARAM(value);
157     UNUSED_PARAM(exception);
158
159     if (JSStringIsEqualToUTF8CString(propertyName, "cantSet"))
160         return true; // pretend we set the property in order to swallow it
161     
162     return false;
163 }
164
165 static bool MyObject_deleteProperty(JSContextRef context, JSObjectRef object, JSStringRef propertyName, JSValueRef* exception)
166 {
167     UNUSED_PARAM(context);
168     UNUSED_PARAM(object);
169     
170     if (JSStringIsEqualToUTF8CString(propertyName, "cantDelete"))
171         return true;
172     
173     if (JSStringIsEqualToUTF8CString(propertyName, "throwOnDelete")) {
174         *exception = JSValueMakeNumber(context, 2);
175         return false;
176     }
177
178     return false;
179 }
180
181 static void MyObject_getPropertyNames(JSContextRef context, JSObjectRef object, JSPropertyNameAccumulatorRef propertyNames)
182 {
183     UNUSED_PARAM(context);
184     UNUSED_PARAM(object);
185     
186     JSStringRef propertyName;
187     
188     propertyName = JSStringCreateWithUTF8CString("alwaysOne");
189     JSPropertyNameAccumulatorAddName(propertyNames, propertyName);
190     JSStringRelease(propertyName);
191     
192     propertyName = JSStringCreateWithUTF8CString("myPropertyName");
193     JSPropertyNameAccumulatorAddName(propertyNames, propertyName);
194     JSStringRelease(propertyName);
195 }
196
197 static JSValueRef MyObject_callAsFunction(JSContextRef context, JSObjectRef object, JSObjectRef thisObject, size_t argumentCount, const JSValueRef arguments[], JSValueRef* exception)
198 {
199     UNUSED_PARAM(context);
200     UNUSED_PARAM(object);
201     UNUSED_PARAM(thisObject);
202     UNUSED_PARAM(exception);
203
204     if (argumentCount > 0 && JSValueIsStrictEqual(context, arguments[0], JSValueMakeNumber(context, 0)))
205         return JSValueMakeNumber(context, 1);
206     
207     return JSValueMakeUndefined(context);
208 }
209
210 static JSObjectRef MyObject_callAsConstructor(JSContextRef context, JSObjectRef object, size_t argumentCount, const JSValueRef arguments[], JSValueRef* exception)
211 {
212     UNUSED_PARAM(context);
213     UNUSED_PARAM(object);
214
215     if (argumentCount > 0 && JSValueIsStrictEqual(context, arguments[0], JSValueMakeNumber(context, 0)))
216         return JSValueToObject(context, JSValueMakeNumber(context, 1), exception);
217     
218     return JSValueToObject(context, JSValueMakeNumber(context, 0), exception);
219 }
220
221 static bool MyObject_hasInstance(JSContextRef context, JSObjectRef constructor, JSValueRef possibleValue, JSValueRef* exception)
222 {
223     UNUSED_PARAM(context);
224     UNUSED_PARAM(constructor);
225
226     JSStringRef numberString = JSStringCreateWithUTF8CString("Number");
227     JSObjectRef numberConstructor = JSValueToObject(context, JSObjectGetProperty(context, JSContextGetGlobalObject(context), numberString, exception), exception);
228     JSStringRelease(numberString);
229
230     return JSValueIsInstanceOfConstructor(context, possibleValue, numberConstructor, exception);
231 }
232
233 static JSValueRef MyObject_convertToType(JSContextRef context, JSObjectRef object, JSType type, JSValueRef* exception)
234 {
235     UNUSED_PARAM(object);
236     UNUSED_PARAM(exception);
237     
238     switch (type) {
239     case kJSTypeNumber:
240         return JSValueMakeNumber(context, 1);
241     case kJSTypeString:
242         {
243             JSStringRef string = JSStringCreateWithUTF8CString("MyObjectAsString");
244             JSValueRef result = JSValueMakeString(context, string);
245             JSStringRelease(string);
246             return result;
247         }
248     default:
249         break;
250     }
251
252     // string conversion -- forward to default object class
253     return NULL;
254 }
255
256 static JSStaticValue evilStaticValues[] = {
257     { "nullGetSet", 0, 0, kJSPropertyAttributeNone },
258     { 0, 0, 0, 0 }
259 };
260
261 static JSStaticFunction evilStaticFunctions[] = {
262     { "nullCall", 0, kJSPropertyAttributeNone },
263     { 0, 0, 0 }
264 };
265
266 JSClassDefinition MyObject_definition = {
267     0,
268     kJSClassAttributeNone,
269     
270     "MyObject",
271     NULL,
272     
273     evilStaticValues,
274     evilStaticFunctions,
275     
276     NULL,
277     NULL,
278     MyObject_hasProperty,
279     MyObject_getProperty,
280     MyObject_setProperty,
281     MyObject_deleteProperty,
282     MyObject_getPropertyNames,
283     MyObject_callAsFunction,
284     MyObject_callAsConstructor,
285     MyObject_hasInstance,
286     MyObject_convertToType,
287 };
288
289 static JSClassRef MyObject_class(JSContextRef context)
290 {
291     UNUSED_PARAM(context);
292
293     static JSClassRef jsClass;
294     if (!jsClass)
295         jsClass = JSClassCreate(&MyObject_definition);
296     
297     return jsClass;
298 }
299
300 static JSValueRef Base_get(JSContextRef ctx, JSObjectRef object, JSStringRef propertyName, JSValueRef* exception)
301 {
302     UNUSED_PARAM(object);
303     UNUSED_PARAM(propertyName);
304     UNUSED_PARAM(exception);
305
306     return JSValueMakeNumber(ctx, 1); // distinguish base get form derived get
307 }
308
309 static bool Base_set(JSContextRef ctx, JSObjectRef object, JSStringRef propertyName, JSValueRef value, JSValueRef* exception)
310 {
311     UNUSED_PARAM(object);
312     UNUSED_PARAM(propertyName);
313     UNUSED_PARAM(value);
314
315     *exception = JSValueMakeNumber(ctx, 1); // distinguish base set from derived set
316     return true;
317 }
318
319 static JSValueRef Base_callAsFunction(JSContextRef ctx, JSObjectRef function, JSObjectRef thisObject, size_t argumentCount, const JSValueRef arguments[], JSValueRef* exception)
320 {
321     UNUSED_PARAM(function);
322     UNUSED_PARAM(thisObject);
323     UNUSED_PARAM(argumentCount);
324     UNUSED_PARAM(arguments);
325     UNUSED_PARAM(exception);
326     
327     return JSValueMakeNumber(ctx, 1); // distinguish base call from derived call
328 }
329
330 static JSStaticFunction Base_staticFunctions[] = {
331     { "baseProtoDup", NULL, kJSPropertyAttributeNone },
332     { "baseProto", Base_callAsFunction, kJSPropertyAttributeNone },
333     { 0, 0, 0 }
334 };
335
336 static JSStaticValue Base_staticValues[] = {
337     { "baseDup", Base_get, Base_set, kJSPropertyAttributeNone },
338     { "baseOnly", Base_get, Base_set, kJSPropertyAttributeNone },
339     { 0, 0, 0, 0 }
340 };
341
342 static bool TestInitializeFinalize;
343 static void Base_initialize(JSContextRef context, JSObjectRef object)
344 {
345     UNUSED_PARAM(context);
346
347     if (TestInitializeFinalize) {
348         ASSERT((void*)1 == JSObjectGetPrivate(object));
349         JSObjectSetPrivate(object, (void*)2);
350     }
351 }
352
353 static unsigned Base_didFinalize;
354 static void Base_finalize(JSObjectRef object)
355 {
356     UNUSED_PARAM(object);
357     if (TestInitializeFinalize) {
358         ASSERT((void*)4 == JSObjectGetPrivate(object));
359         Base_didFinalize = true;
360     }
361 }
362
363 static JSClassRef Base_class(JSContextRef context)
364 {
365     UNUSED_PARAM(context);
366
367     static JSClassRef jsClass;
368     if (!jsClass) {
369         JSClassDefinition definition = kJSClassDefinitionEmpty;
370         definition.staticValues = Base_staticValues;
371         definition.staticFunctions = Base_staticFunctions;
372         definition.initialize = Base_initialize;
373         definition.finalize = Base_finalize;
374         jsClass = JSClassCreate(&definition);
375     }
376     return jsClass;
377 }
378
379 static JSValueRef Derived_get(JSContextRef ctx, JSObjectRef object, JSStringRef propertyName, JSValueRef* exception)
380 {
381     UNUSED_PARAM(object);
382     UNUSED_PARAM(propertyName);
383     UNUSED_PARAM(exception);
384
385     return JSValueMakeNumber(ctx, 2); // distinguish base get form derived get
386 }
387
388 static bool Derived_set(JSContextRef ctx, JSObjectRef object, JSStringRef propertyName, JSValueRef value, JSValueRef* exception)
389 {
390     UNUSED_PARAM(ctx);
391     UNUSED_PARAM(object);
392     UNUSED_PARAM(propertyName);
393     UNUSED_PARAM(value);
394
395     *exception = JSValueMakeNumber(ctx, 2); // distinguish base set from derived set
396     return true;
397 }
398
399 static JSValueRef Derived_callAsFunction(JSContextRef ctx, JSObjectRef function, JSObjectRef thisObject, size_t argumentCount, const JSValueRef arguments[], JSValueRef* exception)
400 {
401     UNUSED_PARAM(function);
402     UNUSED_PARAM(thisObject);
403     UNUSED_PARAM(argumentCount);
404     UNUSED_PARAM(arguments);
405     UNUSED_PARAM(exception);
406     
407     return JSValueMakeNumber(ctx, 2); // distinguish base call from derived call
408 }
409
410 static JSStaticFunction Derived_staticFunctions[] = {
411     { "protoOnly", Derived_callAsFunction, kJSPropertyAttributeNone },
412     { "protoDup", NULL, kJSPropertyAttributeNone },
413     { "baseProtoDup", Derived_callAsFunction, kJSPropertyAttributeNone },
414     { 0, 0, 0 }
415 };
416
417 static JSStaticValue Derived_staticValues[] = {
418     { "derivedOnly", Derived_get, Derived_set, kJSPropertyAttributeNone },
419     { "protoDup", Derived_get, Derived_set, kJSPropertyAttributeNone },
420     { "baseDup", Derived_get, Derived_set, kJSPropertyAttributeNone },
421     { 0, 0, 0, 0 }
422 };
423
424 static void Derived_initialize(JSContextRef context, JSObjectRef object)
425 {
426     UNUSED_PARAM(context);
427
428     if (TestInitializeFinalize) {
429         ASSERT((void*)2 == JSObjectGetPrivate(object));
430         JSObjectSetPrivate(object, (void*)3);
431     }
432 }
433
434 static void Derived_finalize(JSObjectRef object)
435 {
436     if (TestInitializeFinalize) {
437         ASSERT((void*)3 == JSObjectGetPrivate(object));
438         JSObjectSetPrivate(object, (void*)4);
439     }
440 }
441
442 static JSClassRef Derived_class(JSContextRef context)
443 {
444     static JSClassRef jsClass;
445     if (!jsClass) {
446         JSClassDefinition definition = kJSClassDefinitionEmpty;
447         definition.parentClass = Base_class(context);
448         definition.staticValues = Derived_staticValues;
449         definition.staticFunctions = Derived_staticFunctions;
450         definition.initialize = Derived_initialize;
451         definition.finalize = Derived_finalize;
452         jsClass = JSClassCreate(&definition);
453     }
454     return jsClass;
455 }
456
457 static JSValueRef print_callAsFunction(JSContextRef context, JSObjectRef functionObject, JSObjectRef thisObject, size_t argumentCount, const JSValueRef arguments[], JSValueRef* exception)
458 {
459     UNUSED_PARAM(functionObject);
460     UNUSED_PARAM(thisObject);
461     UNUSED_PARAM(exception);
462     
463     if (argumentCount > 0) {
464         JSStringRef string = JSValueToStringCopy(context, arguments[0], NULL);
465         size_t sizeUTF8 = JSStringGetMaximumUTF8CStringSize(string);
466         char* stringUTF8 = (char*)malloc(sizeUTF8);
467         JSStringGetUTF8CString(string, stringUTF8, sizeUTF8);
468         printf("%s\n", stringUTF8);
469         free(stringUTF8);
470         JSStringRelease(string);
471     }
472     
473     return JSValueMakeUndefined(context);
474 }
475
476 static JSObjectRef myConstructor_callAsConstructor(JSContextRef context, JSObjectRef constructorObject, size_t argumentCount, const JSValueRef arguments[], JSValueRef* exception)
477 {
478     UNUSED_PARAM(constructorObject);
479     UNUSED_PARAM(exception);
480     
481     JSObjectRef result = JSObjectMake(context, NULL, NULL);
482     if (argumentCount > 0) {
483         JSStringRef value = JSStringCreateWithUTF8CString("value");
484         JSObjectSetProperty(context, result, value, arguments[0], kJSPropertyAttributeNone, NULL);
485         JSStringRelease(value);
486     }
487     
488     return result;
489 }
490
491
492 static void globalObject_initialize(JSContextRef context, JSObjectRef object)
493 {
494     UNUSED_PARAM(object);
495     // Ensure that an execution context is passed in
496     ASSERT(context);
497
498     // Ensure that the global object is set to the object that we were passed
499     JSObjectRef globalObject = JSContextGetGlobalObject(context);
500     ASSERT(globalObject);
501     ASSERT(object == globalObject);
502
503     // Ensure that the standard global properties have been set on the global object
504     JSStringRef array = JSStringCreateWithUTF8CString("Array");
505     JSObjectRef arrayConstructor = JSValueToObject(context, JSObjectGetProperty(context, globalObject, array, NULL), NULL);
506     JSStringRelease(array);
507
508     UNUSED_PARAM(arrayConstructor);
509     ASSERT(arrayConstructor);
510 }
511
512 static JSValueRef globalObject_get(JSContextRef ctx, JSObjectRef object, JSStringRef propertyName, JSValueRef* exception)
513 {
514     UNUSED_PARAM(object);
515     UNUSED_PARAM(propertyName);
516     UNUSED_PARAM(exception);
517
518     return JSValueMakeNumber(ctx, 3);
519 }
520
521 static bool globalObject_set(JSContextRef ctx, JSObjectRef object, JSStringRef propertyName, JSValueRef value, JSValueRef* exception)
522 {
523     UNUSED_PARAM(object);
524     UNUSED_PARAM(propertyName);
525     UNUSED_PARAM(value);
526
527     *exception = JSValueMakeNumber(ctx, 3);
528     return true;
529 }
530
531 static JSValueRef globalObject_call(JSContextRef ctx, JSObjectRef function, JSObjectRef thisObject, size_t argumentCount, const JSValueRef arguments[], JSValueRef* exception)
532 {
533     UNUSED_PARAM(function);
534     UNUSED_PARAM(thisObject);
535     UNUSED_PARAM(argumentCount);
536     UNUSED_PARAM(arguments);
537     UNUSED_PARAM(exception);
538
539     return JSValueMakeNumber(ctx, 3);
540 }
541
542 static JSStaticValue globalObject_staticValues[] = {
543     { "globalStaticValue", globalObject_get, globalObject_set, kJSPropertyAttributeNone },
544     { 0, 0, 0, 0 }
545 };
546
547 static JSStaticFunction globalObject_staticFunctions[] = {
548     { "globalStaticFunction", globalObject_call, kJSPropertyAttributeNone },
549     { 0, 0, 0 }
550 };
551
552 static char* createStringWithContentsOfFile(const char* fileName);
553
554 static void testInitializeFinalize()
555 {
556     JSObjectRef o = JSObjectMake(context, Derived_class(context), (void*)1);
557     UNUSED_PARAM(o);
558     ASSERT(JSObjectGetPrivate(o) == (void*)3);
559 }
560
561 int main(int argc, char* argv[])
562 {
563     const char *scriptPath = "testapi.js";
564     if (argc > 1) {
565         scriptPath = argv[1];
566     }
567     
568     // Test garbage collection with a fresh context
569     context = JSGlobalContextCreate(NULL);
570     TestInitializeFinalize = true;
571     testInitializeFinalize();
572     JSGlobalContextRelease(context);
573     TestInitializeFinalize = false;
574
575     ASSERT(Base_didFinalize);
576
577     JSClassDefinition globalObjectClassDefinition = kJSClassDefinitionEmpty;
578     globalObjectClassDefinition.initialize = globalObject_initialize;
579     globalObjectClassDefinition.staticValues = globalObject_staticValues;
580     globalObjectClassDefinition.staticFunctions = globalObject_staticFunctions;
581     globalObjectClassDefinition.attributes = kJSClassAttributeNoAutomaticPrototype;
582     JSClassRef globalObjectClass = JSClassCreate(&globalObjectClassDefinition);
583     context = JSGlobalContextCreate(globalObjectClass);
584     
585     JSObjectRef globalObject = JSContextGetGlobalObject(context);
586     ASSERT(JSValueIsObject(context, globalObject));
587     
588     JSValueRef jsUndefined = JSValueMakeUndefined(context);
589     JSValueRef jsNull = JSValueMakeNull(context);
590     JSValueRef jsTrue = JSValueMakeBoolean(context, true);
591     JSValueRef jsFalse = JSValueMakeBoolean(context, false);
592     JSValueRef jsZero = JSValueMakeNumber(context, 0);
593     JSValueRef jsOne = JSValueMakeNumber(context, 1);
594     JSValueRef jsOneThird = JSValueMakeNumber(context, 1.0 / 3.0);
595     JSObjectRef jsObjectNoProto = JSObjectMake(context, NULL, NULL);
596     JSObjectSetPrototype(context, jsObjectNoProto, JSValueMakeNull(context));
597
598     // FIXME: test funny utf8 characters
599     JSStringRef jsEmptyIString = JSStringCreateWithUTF8CString("");
600     JSValueRef jsEmptyString = JSValueMakeString(context, jsEmptyIString);
601     
602     JSStringRef jsOneIString = JSStringCreateWithUTF8CString("1");
603     JSValueRef jsOneString = JSValueMakeString(context, jsOneIString);
604
605     UniChar singleUniChar = 65; // Capital A
606     CFMutableStringRef cfString = 
607         CFStringCreateMutableWithExternalCharactersNoCopy(kCFAllocatorDefault,
608                                                           &singleUniChar,
609                                                           1,
610                                                           1,
611                                                           kCFAllocatorNull);
612
613     JSStringRef jsCFIString = JSStringCreateWithCFString(cfString);
614     JSValueRef jsCFString = JSValueMakeString(context, jsCFIString);
615     
616     CFStringRef cfEmptyString = CFStringCreateWithCString(kCFAllocatorDefault, "", kCFStringEncodingUTF8);
617     
618     JSStringRef jsCFEmptyIString = JSStringCreateWithCFString(cfEmptyString);
619     JSValueRef jsCFEmptyString = JSValueMakeString(context, jsCFEmptyIString);
620
621     CFIndex cfStringLength = CFStringGetLength(cfString);
622     UniChar* buffer = (UniChar*)malloc(cfStringLength * sizeof(UniChar));
623     CFStringGetCharacters(cfString, 
624                           CFRangeMake(0, cfStringLength), 
625                           buffer);
626     JSStringRef jsCFIStringWithCharacters = JSStringCreateWithCharacters((JSChar*)buffer, cfStringLength);
627     JSValueRef jsCFStringWithCharacters = JSValueMakeString(context, jsCFIStringWithCharacters);
628     
629     JSStringRef jsCFEmptyIStringWithCharacters = JSStringCreateWithCharacters((JSChar*)buffer, CFStringGetLength(cfEmptyString));
630     free(buffer);
631     JSValueRef jsCFEmptyStringWithCharacters = JSValueMakeString(context, jsCFEmptyIStringWithCharacters);
632
633     ASSERT(JSValueGetType(context, jsUndefined) == kJSTypeUndefined);
634     ASSERT(JSValueGetType(context, jsNull) == kJSTypeNull);
635     ASSERT(JSValueGetType(context, jsTrue) == kJSTypeBoolean);
636     ASSERT(JSValueGetType(context, jsFalse) == kJSTypeBoolean);
637     ASSERT(JSValueGetType(context, jsZero) == kJSTypeNumber);
638     ASSERT(JSValueGetType(context, jsOne) == kJSTypeNumber);
639     ASSERT(JSValueGetType(context, jsOneThird) == kJSTypeNumber);
640     ASSERT(JSValueGetType(context, jsEmptyString) == kJSTypeString);
641     ASSERT(JSValueGetType(context, jsOneString) == kJSTypeString);
642     ASSERT(JSValueGetType(context, jsCFString) == kJSTypeString);
643     ASSERT(JSValueGetType(context, jsCFStringWithCharacters) == kJSTypeString);
644     ASSERT(JSValueGetType(context, jsCFEmptyString) == kJSTypeString);
645     ASSERT(JSValueGetType(context, jsCFEmptyStringWithCharacters) == kJSTypeString);
646
647     JSObjectRef myObject = JSObjectMake(context, MyObject_class(context), NULL);
648     JSStringRef myObjectIString = JSStringCreateWithUTF8CString("MyObject");
649     JSObjectSetProperty(context, globalObject, myObjectIString, myObject, kJSPropertyAttributeNone, NULL);
650     JSStringRelease(myObjectIString);
651     
652     JSValueRef exception;
653
654     // Conversions that throw exceptions
655     exception = NULL;
656     ASSERT(NULL == JSValueToObject(context, jsNull, &exception));
657     ASSERT(exception);
658     
659     exception = NULL;
660     // FIXME <rdar://4668451> - On i386 the isnan(double) macro tries to map to the isnan(float) function,
661     // causing a build break with -Wshorten-64-to-32 enabled.  The issue is known by the appropriate team.
662     // After that's resolved, we can remove these casts
663     ASSERT(isnan((float)JSValueToNumber(context, jsObjectNoProto, &exception)));
664     ASSERT(exception);
665
666     exception = NULL;
667     ASSERT(!JSValueToStringCopy(context, jsObjectNoProto, &exception));
668     ASSERT(exception);
669     
670     ASSERT(JSValueToBoolean(context, myObject));
671     
672     exception = NULL;
673     ASSERT(!JSValueIsEqual(context, jsObjectNoProto, JSValueMakeNumber(context, 1), &exception));
674     ASSERT(exception);
675     
676     exception = NULL;
677     JSObjectGetPropertyAtIndex(context, myObject, 0, &exception);
678     ASSERT(1 == JSValueToNumber(context, exception, NULL));
679
680     assertEqualsAsBoolean(jsUndefined, false);
681     assertEqualsAsBoolean(jsNull, false);
682     assertEqualsAsBoolean(jsTrue, true);
683     assertEqualsAsBoolean(jsFalse, false);
684     assertEqualsAsBoolean(jsZero, false);
685     assertEqualsAsBoolean(jsOne, true);
686     assertEqualsAsBoolean(jsOneThird, true);
687     assertEqualsAsBoolean(jsEmptyString, false);
688     assertEqualsAsBoolean(jsOneString, true);
689     assertEqualsAsBoolean(jsCFString, true);
690     assertEqualsAsBoolean(jsCFStringWithCharacters, true);
691     assertEqualsAsBoolean(jsCFEmptyString, false);
692     assertEqualsAsBoolean(jsCFEmptyStringWithCharacters, false);
693     
694     assertEqualsAsNumber(jsUndefined, nan(""));
695     assertEqualsAsNumber(jsNull, 0);
696     assertEqualsAsNumber(jsTrue, 1);
697     assertEqualsAsNumber(jsFalse, 0);
698     assertEqualsAsNumber(jsZero, 0);
699     assertEqualsAsNumber(jsOne, 1);
700     assertEqualsAsNumber(jsOneThird, 1.0 / 3.0);
701     assertEqualsAsNumber(jsEmptyString, 0);
702     assertEqualsAsNumber(jsOneString, 1);
703     assertEqualsAsNumber(jsCFString, nan(""));
704     assertEqualsAsNumber(jsCFStringWithCharacters, nan(""));
705     assertEqualsAsNumber(jsCFEmptyString, 0);
706     assertEqualsAsNumber(jsCFEmptyStringWithCharacters, 0);
707     ASSERT(sizeof(JSChar) == sizeof(UniChar));
708     
709     assertEqualsAsCharactersPtr(jsUndefined, "undefined");
710     assertEqualsAsCharactersPtr(jsNull, "null");
711     assertEqualsAsCharactersPtr(jsTrue, "true");
712     assertEqualsAsCharactersPtr(jsFalse, "false");
713     assertEqualsAsCharactersPtr(jsZero, "0");
714     assertEqualsAsCharactersPtr(jsOne, "1");
715     assertEqualsAsCharactersPtr(jsOneThird, "0.3333333333333333");
716     assertEqualsAsCharactersPtr(jsEmptyString, "");
717     assertEqualsAsCharactersPtr(jsOneString, "1");
718     assertEqualsAsCharactersPtr(jsCFString, "A");
719     assertEqualsAsCharactersPtr(jsCFStringWithCharacters, "A");
720     assertEqualsAsCharactersPtr(jsCFEmptyString, "");
721     assertEqualsAsCharactersPtr(jsCFEmptyStringWithCharacters, "");
722     
723     assertEqualsAsUTF8String(jsUndefined, "undefined");
724     assertEqualsAsUTF8String(jsNull, "null");
725     assertEqualsAsUTF8String(jsTrue, "true");
726     assertEqualsAsUTF8String(jsFalse, "false");
727     assertEqualsAsUTF8String(jsZero, "0");
728     assertEqualsAsUTF8String(jsOne, "1");
729     assertEqualsAsUTF8String(jsOneThird, "0.3333333333333333");
730     assertEqualsAsUTF8String(jsEmptyString, "");
731     assertEqualsAsUTF8String(jsOneString, "1");
732     assertEqualsAsUTF8String(jsCFString, "A");
733     assertEqualsAsUTF8String(jsCFStringWithCharacters, "A");
734     assertEqualsAsUTF8String(jsCFEmptyString, "");
735     assertEqualsAsUTF8String(jsCFEmptyStringWithCharacters, "");
736     
737     ASSERT(JSValueIsStrictEqual(context, jsTrue, jsTrue));
738     ASSERT(!JSValueIsStrictEqual(context, jsOne, jsOneString));
739
740     ASSERT(JSValueIsEqual(context, jsOne, jsOneString, NULL));
741     ASSERT(!JSValueIsEqual(context, jsTrue, jsFalse, NULL));
742     
743     CFStringRef cfJSString = JSStringCopyCFString(kCFAllocatorDefault, jsCFIString);
744     CFStringRef cfJSEmptyString = JSStringCopyCFString(kCFAllocatorDefault, jsCFEmptyIString);
745     ASSERT(CFEqual(cfJSString, cfString));
746     ASSERT(CFEqual(cfJSEmptyString, cfEmptyString));
747     CFRelease(cfJSString);
748     CFRelease(cfJSEmptyString);
749
750     CFRelease(cfString);
751     CFRelease(cfEmptyString);
752     
753     jsGlobalValue = JSObjectMake(context, NULL, NULL);
754     JSValueProtect(context, jsGlobalValue);
755     JSGarbageCollect(context);
756     ASSERT(JSValueIsObject(context, jsGlobalValue));
757     JSValueUnprotect(context, jsGlobalValue);
758
759     JSStringRef goodSyntax = JSStringCreateWithUTF8CString("x = 1;");
760     JSStringRef badSyntax = JSStringCreateWithUTF8CString("x := 1;");
761     ASSERT(JSCheckScriptSyntax(context, goodSyntax, NULL, 0, NULL));
762     ASSERT(!JSCheckScriptSyntax(context, badSyntax, NULL, 0, NULL));
763
764     JSValueRef result;
765     JSValueRef v;
766     JSObjectRef o;
767     JSStringRef string;
768
769     result = JSEvaluateScript(context, goodSyntax, NULL, NULL, 1, NULL);
770     ASSERT(result);
771     ASSERT(JSValueIsEqual(context, result, jsOne, NULL));
772
773     exception = NULL;
774     result = JSEvaluateScript(context, badSyntax, NULL, NULL, 1, &exception);
775     ASSERT(!result);
776     ASSERT(JSValueIsObject(context, exception));
777     
778     JSStringRef array = JSStringCreateWithUTF8CString("Array");
779     JSObjectRef arrayConstructor = JSValueToObject(context, JSObjectGetProperty(context, globalObject, array, NULL), NULL);
780     JSStringRelease(array);
781     result = JSObjectCallAsConstructor(context, arrayConstructor, 0, NULL, NULL);
782     ASSERT(result);
783     ASSERT(JSValueIsObject(context, result));
784     ASSERT(JSValueIsInstanceOfConstructor(context, result, arrayConstructor, NULL));
785     ASSERT(!JSValueIsInstanceOfConstructor(context, JSValueMakeNull(context), arrayConstructor, NULL));
786
787     o = JSValueToObject(context, result, NULL);
788     exception = NULL;
789     ASSERT(JSValueIsUndefined(context, JSObjectGetPropertyAtIndex(context, o, 0, &exception)));
790     ASSERT(!exception);
791     
792     JSObjectSetPropertyAtIndex(context, o, 0, JSValueMakeNumber(context, 1), &exception);
793     ASSERT(!exception);
794     
795     exception = NULL;
796     ASSERT(1 == JSValueToNumber(context, JSObjectGetPropertyAtIndex(context, o, 0, &exception), &exception));
797     ASSERT(!exception);
798
799     JSStringRef functionBody;
800     JSObjectRef function;
801     
802     exception = NULL;
803     functionBody = JSStringCreateWithUTF8CString("rreturn Array;");
804     JSStringRef line = JSStringCreateWithUTF8CString("line");
805     ASSERT(!JSObjectMakeFunction(context, NULL, 0, NULL, functionBody, NULL, 1, &exception));
806     ASSERT(JSValueIsObject(context, exception));
807     v = JSObjectGetProperty(context, JSValueToObject(context, exception, NULL), line, NULL);
808     assertEqualsAsNumber(v, 1);
809     JSStringRelease(functionBody);
810     JSStringRelease(line);
811
812     exception = NULL;
813     functionBody = JSStringCreateWithUTF8CString("return Array;");
814     function = JSObjectMakeFunction(context, NULL, 0, NULL, functionBody, NULL, 1, &exception);
815     JSStringRelease(functionBody);
816     ASSERT(!exception);
817     ASSERT(JSObjectIsFunction(context, function));
818     v = JSObjectCallAsFunction(context, function, NULL, 0, NULL, NULL);
819     ASSERT(v);
820     ASSERT(JSValueIsEqual(context, v, arrayConstructor, NULL));
821     
822     exception = NULL;
823     function = JSObjectMakeFunction(context, NULL, 0, NULL, jsEmptyIString, NULL, 0, &exception);
824     ASSERT(!exception);
825     v = JSObjectCallAsFunction(context, function, NULL, 0, NULL, &exception);
826     ASSERT(v && !exception);
827     ASSERT(JSValueIsUndefined(context, v));
828     
829     exception = NULL;
830     v = NULL;
831     JSStringRef foo = JSStringCreateWithUTF8CString("foo");
832     JSStringRef argumentNames[] = { foo };
833     functionBody = JSStringCreateWithUTF8CString("return foo;");
834     function = JSObjectMakeFunction(context, foo, 1, argumentNames, functionBody, NULL, 1, &exception);
835     ASSERT(function && !exception);
836     JSValueRef arguments[] = { JSValueMakeNumber(context, 2) };
837     v = JSObjectCallAsFunction(context, function, NULL, 1, arguments, &exception);
838     JSStringRelease(foo);
839     JSStringRelease(functionBody);
840     
841     string = JSValueToStringCopy(context, function, NULL);
842     assertEqualsAsUTF8String(JSValueMakeString(context, string), "function foo(foo) {return foo;}");
843     JSStringRelease(string);
844
845     JSStringRef print = JSStringCreateWithUTF8CString("print");
846     JSObjectRef printFunction = JSObjectMakeFunctionWithCallback(context, print, print_callAsFunction);
847     JSObjectSetProperty(context, globalObject, print, printFunction, kJSPropertyAttributeNone, NULL); 
848     JSStringRelease(print);
849     
850     ASSERT(!JSObjectSetPrivate(printFunction, (void*)1));
851     ASSERT(!JSObjectGetPrivate(printFunction));
852
853     JSStringRef myConstructorIString = JSStringCreateWithUTF8CString("MyConstructor");
854     JSObjectRef myConstructor = JSObjectMakeConstructor(context, NULL, myConstructor_callAsConstructor);
855     JSObjectSetProperty(context, globalObject, myConstructorIString, myConstructor, kJSPropertyAttributeNone, NULL);
856     JSStringRelease(myConstructorIString);
857     
858     ASSERT(!JSObjectSetPrivate(myConstructor, (void*)1));
859     ASSERT(!JSObjectGetPrivate(myConstructor));
860     
861     string = JSStringCreateWithUTF8CString("Derived");
862     JSObjectRef derivedConstructor = JSObjectMakeConstructor(context, Derived_class(context), NULL);
863     JSObjectSetProperty(context, globalObject, string, derivedConstructor, kJSPropertyAttributeNone, NULL);
864     JSStringRelease(string);
865     
866     o = JSObjectMake(context, NULL, NULL);
867     JSObjectSetProperty(context, o, jsOneIString, JSValueMakeNumber(context, 1), kJSPropertyAttributeNone, NULL);
868     JSObjectSetProperty(context, o, jsCFIString,  JSValueMakeNumber(context, 1), kJSPropertyAttributeDontEnum, NULL);
869     JSPropertyNameArrayRef nameArray = JSObjectCopyPropertyNames(context, o);
870     size_t expectedCount = JSPropertyNameArrayGetCount(nameArray);
871     size_t count;
872     for (count = 0; count < expectedCount; ++count)
873         JSPropertyNameArrayGetNameAtIndex(nameArray, count);
874     JSPropertyNameArrayRelease(nameArray);
875     ASSERT(count == 1); // jsCFString should not be enumerated
876
877     JSClassDefinition nullDefinition = kJSClassDefinitionEmpty;
878     nullDefinition.attributes = kJSClassAttributeNoAutomaticPrototype;
879     JSClassRef nullClass = JSClassCreate(&nullDefinition);
880     JSClassRelease(nullClass);
881     
882     nullDefinition = kJSClassDefinitionEmpty;
883     nullClass = JSClassCreate(&nullDefinition);
884     JSClassRelease(nullClass);
885
886     functionBody = JSStringCreateWithUTF8CString("return this;");
887     function = JSObjectMakeFunction(context, NULL, 0, NULL, functionBody, NULL, 1, NULL);
888     JSStringRelease(functionBody);
889     v = JSObjectCallAsFunction(context, function, NULL, 0, NULL, NULL);
890     ASSERT(JSValueIsEqual(context, v, globalObject, NULL));
891     v = JSObjectCallAsFunction(context, function, o, 0, NULL, NULL);
892     ASSERT(JSValueIsEqual(context, v, o, NULL));
893
894     functionBody = JSStringCreateWithUTF8CString("return eval(\"this\");");
895     function = JSObjectMakeFunction(context, NULL, 0, NULL, functionBody, NULL, 1, NULL);
896     JSStringRelease(functionBody);
897     v = JSObjectCallAsFunction(context, function, NULL, 0, NULL, NULL);
898     ASSERT(JSValueIsEqual(context, v, globalObject, NULL));
899     v = JSObjectCallAsFunction(context, function, o, 0, NULL, NULL);
900     ASSERT(JSValueIsEqual(context, v, o, NULL));
901
902     JSStringRef script = JSStringCreateWithUTF8CString("this;");
903     v = JSEvaluateScript(context, script, NULL, NULL, 1, NULL);
904     ASSERT(JSValueIsEqual(context, v, globalObject, NULL));
905     v = JSEvaluateScript(context, script, o, NULL, 1, NULL);
906     ASSERT(JSValueIsEqual(context, v, o, NULL));
907     JSStringRelease(script);
908
909     script = JSStringCreateWithUTF8CString("eval(this);");
910     v = JSEvaluateScript(context, script, NULL, NULL, 1, NULL);
911     ASSERT(JSValueIsEqual(context, v, globalObject, NULL));
912     v = JSEvaluateScript(context, script, o, NULL, 1, NULL);
913     ASSERT(JSValueIsEqual(context, v, o, NULL));
914     JSStringRelease(script);
915
916     char* scriptUTF8 = createStringWithContentsOfFile(scriptPath);
917     if (!scriptUTF8)
918         printf("FAIL: Test script could not be loaded.\n");
919     else {
920         script = JSStringCreateWithUTF8CString(scriptUTF8);
921         result = JSEvaluateScript(context, script, NULL, NULL, 1, &exception);
922         if (JSValueIsUndefined(context, result))
923             printf("PASS: Test script executed successfully.\n");
924         else {
925             printf("FAIL: Test script returned unexpected value:\n");
926             JSStringRef exceptionIString = JSValueToStringCopy(context, exception, NULL);
927             CFStringRef exceptionCF = JSStringCopyCFString(kCFAllocatorDefault, exceptionIString);
928             CFShow(exceptionCF);
929             CFRelease(exceptionCF);
930             JSStringRelease(exceptionIString);
931         }
932         JSStringRelease(script);
933         free(scriptUTF8);
934     }
935
936     // Clear out local variables pointing at JSObjectRefs to allow their values to be collected
937     function = NULL;
938     v = NULL;
939     o = NULL;
940     globalObject = NULL;
941
942     JSStringRelease(jsEmptyIString);
943     JSStringRelease(jsOneIString);
944     JSStringRelease(jsCFIString);
945     JSStringRelease(jsCFEmptyIString);
946     JSStringRelease(jsCFIStringWithCharacters);
947     JSStringRelease(jsCFEmptyIStringWithCharacters);
948     JSStringRelease(goodSyntax);
949     JSStringRelease(badSyntax);
950
951     JSGlobalContextRelease(context);
952     JSClassRelease(globalObjectClass);
953
954     printf("PASS: Program exited normally.\n");
955     return 0;
956 }
957
958 static char* createStringWithContentsOfFile(const char* fileName)
959 {
960     char* buffer;
961     
962     size_t buffer_size = 0;
963     size_t buffer_capacity = 1024;
964     buffer = (char*)malloc(buffer_capacity);
965     
966     FILE* f = fopen(fileName, "r");
967     if (!f) {
968         fprintf(stderr, "Could not open file: %s\n", fileName);
969         return 0;
970     }
971     
972     while (!feof(f) && !ferror(f)) {
973         buffer_size += fread(buffer + buffer_size, 1, buffer_capacity - buffer_size, f);
974         if (buffer_size == buffer_capacity) { // guarantees space for trailing '\0'
975             buffer_capacity *= 2;
976             buffer = (char*)realloc(buffer, buffer_capacity);
977             ASSERT(buffer);
978         }
979         
980         ASSERT(buffer_size < buffer_capacity);
981     }
982     fclose(f);
983     buffer[buffer_size] = '\0';
984     
985     return buffer;
986 }