Mercurial > js4py

annotate core-javascript/core-javascript-work/tutorial.js @ 138:20d76c716c9d core-javascript

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
author Jonathan Fine <jfine@pytex.org>
date Mon, 31 Oct 2011 19:58:29 +0000
parents f9f6684f9b32
children de308579ea0d
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
138
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
1 var telltail = 'global';
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
2
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
3 var TEST = function(title, code){
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
4 print( 'Testing: ' + title );
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
5 code();
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
6 };
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
7
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
8 var assert = function(arg){
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
9 if(!arg){
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
10 ddt();
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
11 }
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
12 };
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
13
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
14 '0' == 0 || ddt;
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
15 0 == '' || ddt;
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
16 '0' != '' || ddt;
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
17 NaN != NaN || ddt;
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
18
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
19
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
20 // start closures
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
21 TEST('closures', function()
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
22 {
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
23 // A factory for creating get-set pairs.
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
24 var get_set_factory = function(){
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
25
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
26 var value;
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
27 var get = function(){
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
28 return value;
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
29 };
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
30 var set = function(new_value){
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
31 value = new_value;
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
32 };
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
33
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
34 return {
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
35 get: get,
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
36 set: set
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
37 };
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
38 };
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
39
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
40 // Create and unpack two get-set pairs.
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
41 var tmp;
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
42 tmp= get_set_factory();
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
43 var get_a = tmp.get;
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
44 var set_a = tmp.set;
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
45
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
46 tmp= get_set_factory();
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
47 var get_b = tmp.get;
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
48 var set_b = tmp.set;
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
49
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
50 // Test that both pairs work.
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
51 set_a(12);
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
52 assert( get_a() === 12 );
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
53
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
54 set_b(13);
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
55 assert( get_b() === 13 );
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
56
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
57 // Test that each pair has its own value.
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
58 assert( get_a() === 12 );
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
59
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
60 });
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
61 // end closures
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
62
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
63
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
64 // start return_this
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
65 TEST('return_this', function()
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
66 {
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
67 var return_this = function(){
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
68 return this;
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
69 };
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
70
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
71 var default_this = return_this();
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
72 assert( default_this.telltail === 'global' );
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
73
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
74 var obj = {};
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
75 obj.return_this = return_this;
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
76 assert( obj.return_this === return_this );
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
77
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
78 assert( obj.return_this() === obj );
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
79 assert( obj['return_this']() === obj );
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
80
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
81 assert( return_this.call(obj) === obj );
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
82 assert( return_this.apply(obj) === obj );
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
83
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
84 assert( return_this.call(undefined).telltail === 'global' );
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
85 assert( return_this.apply(undefined).telltail === 'global' );
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
86
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
87 });
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
88 // end return_this
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
89
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
90
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
91 // start transient-bind
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
92 TEST('transient-bind', function()
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
93 {
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
94 // Set up the test object.
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
95 var return_this = function(){
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
96 return this;
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
97 };
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
98 var obj = {
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
99 return_this : return_this
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
100 };
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
101
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
102 // Deferring method call changes the outcome.
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
103 var method_deferred = obj.return_this;
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
104 assert( method_deferred === obj.return_this );
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
105 assert( method_deferred() !== obj.return_this() );
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
106
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
107 // The two outcomes, precisely stated.
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
108 assert( obj.return_this() === obj );
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
109 assert( method_deferred().telltail === 'global' );
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
110
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
111 });
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
112 // end transient-bind
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
113
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
114
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
115 // start millers-device
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
116 TEST('millers-device', function()
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
117 {
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
118 var array = [];
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
119 var obj = {};
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
120 var fn = function(){};
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
121
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
122 assert( typeof array === 'object' );
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
123 assert( '' + obj === '[object Object]' );
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
124
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
125 assert( obj.toString() === '[object Object]' );
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
126
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
127 var object_toString = obj.toString;
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
128
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
129 assert( object_toString.call(array) === '[object Array]' );
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
130 assert( object_toString.call(fn) === '[object Function]' );
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
131
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
132 });
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
133 // end millers-device
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
134
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
135
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
136 // start return_arguments
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
137 TEST('return_arguments', function()
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
138 {
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
139 var return_arguments = function(){
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
140 return arguments;
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
141 };
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
142
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
143 var my_arguments = return_arguments(0, 1);
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
144
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
145 assert( my_arguments.length === 2 );
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
146
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
147 assert( my_arguments[0] === 0 );
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
148 assert( my_arguments[1] === 1 );
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
149
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
150 assert( '' + my_arguments === '[object Object]' );
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
151 assert( '' + [0, 1] === '0,1' );
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
152
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
153 var array_slice = [].slice;
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
154 var my_arguments_fixed = array_slice.call( my_arguments );
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
155
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
156 assert( '' + my_arguments_fixed === '0,1');
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
157
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
158 var obj = {};
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
159 assert( obj.toString.call( my_arguments_fixed ) === '[object Array]' );
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
160
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
161 });
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
162 // end return_arguments
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
163
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
164
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
165 // start new-operator
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
166 TEST('new-operator', function()
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
167 {
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
168 var this_in_Fn;
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
169
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
170 var Fn = function(){
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
171 this_in_Fn = this;
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
172 };
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
173
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
174 this_in_Fn = null;
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
175 var non_instance = Fn();
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
176 assert( non_instance === undefined );
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
177 assert( this_in_Fn.telltail === 'global');
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
178
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
179 this_in_Fn = null;
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
180 var instance = new Fn();
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
181 assert( instance === this_in_Fn );
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
182 assert( instance.telltail === undefined );
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
183
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
184 Fn.prototype.telltail = 'instance-of-Fn';
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
185 assert( instance.telltail === 'instance-of-Fn' );
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
186
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
187 Fn.prototype = {
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
188 telltail : 'prototype-is-changed'
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
189 };
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
190 var second_instance = new Fn();
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
191 assert( second_instance.telltail === 'prototype-is-changed' );
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
192
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
193 Fn.prototype = second_instance;
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
194 second_instance.i = 42;
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
195
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
196 var third_instance = new Fn();
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
197 assert( third_instance.telltail === 'prototype-is-changed' );
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
198 assert( third_instance.i === 42 );
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
199
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
200 });
20d76c716c9d core-javascript-work$ for NAME in * ; do perl -i -p -e 's/\n/ # use DOS line endings
Jonathan Fine <jfine@pytex.org>
parents: 135
diff changeset
201 // end new-operator