t/reference-tests.lisp

   1 (in-package :ps-test)
   2 ;; Tests of everything in the reference.
   3 ;; File is generated automatically from the text in reference.lisp by
   4 ;; the function make-reference-tests-dot-lisp in ref2test.lisp
   5 ;; so do not edit this file.
   6 (eval-when (:compile-toplevel :load-toplevel :execute)
   7   (def-suite ref-tests))
   8 (in-suite ref-tests)
   9
  10 (test-ps-js statements-and-expressions-1
  11   (+ i (if 1 2 3))
  12   "i + (1 ? 2 : 3)")
  13
  14 (test-ps-js statements-and-expressions-2
  15   (if 1 2 3)
  16   "if (1) {
  17   2;
  18 } else {
  19   3;
  20 }")
  21
  22 (test-ps-js symbol-conversion-1
  23   !?#@%
  24   "bangwhathashatpercent")
  25
  26 (test-ps-js symbol-conversion-2
  27   bla-foo-bar
  28   "blaFooBar")
  29
  30 (test-ps-js symbol-conversion-3
  31   *array
  32   "Array")
  33
  34 (test-ps-js symbol-conversion-6
  35   *global-array*
  36   "GLOBALARRAY")
  37
  38 (test-ps-js symbol-conversion-7
  39   *global-array*.length
  40   "GLOBALARRAY.length")
  41
  42 (test-ps-js number-literals-1
  43   1
  44   "1")
  45
  46 (test-ps-js number-literals-2
  47   123.123
  48   "123.123")
  49
  50 (test-ps-js number-literals-3
  51   #x10
  52   "16")
  53
  54 (test-ps-js string-literals-1
  55   "foobar"
  56   "'foobar'")
  57
  58 (test-ps-js string-literals-2
  59   "bratzel bub"
  60   "'bratzel bub'")
  61
  62 (test-ps-js array-literals-1
  63   (array)
  64   "[  ]")
  65
  66 (test-ps-js array-literals-2
  67   (array 1 2 3)
  68   "[ 1, 2, 3 ]")
  69
  70 (test-ps-js array-literals-3
  71   (array (array 2 3)
  72        (array "foobar" "bratzel bub"))
  73   "[ [ 2, 3 ], [ 'foobar', 'bratzel bub' ] ]")
  74
  75 (test-ps-js array-literals-4
  76   (make-array)
  77   "new Array()")
  78
  79 (test-ps-js array-literals-5
  80   (make-array 1 2 3)
  81   "new Array(1, 2, 3)")
  82
  83 (test-ps-js array-literals-6
  84   (make-array
  85  (make-array 2 3)
  86  (make-array "foobar" "bratzel bub"))
  87   "new Array(new Array(2, 3), new Array('foobar', 'bratzel bub'))")
  88
  89 (test-ps-js object-literals-1
  90   (create :foo "bar" :blorg 1)
  91   "{ foo : 'bar',
  92   blorg : 1 }")
  93
  94 (test-ps-js object-literals-2
  95   (create :foo "hihi"
  96         :blorg (array 1 2 3)
  97         :another-object (create :schtrunz 1))
  98   "{ foo : 'hihi',
  99   blorg : [ 1, 2, 3 ],
 100   anotherObject : { schtrunz : 1 } }")
 101
 102 (test-ps-js object-literals-3
 103   (slot-value an-object 'foo)
 104   "anObject.foo")
 105
 106 (test-ps-js object-literals-4
 107   an-object.foo
 108   "anObject.foo")
 109
 110 (test-ps-js object-literals-5
 111   (with-slots (a b c) this
 112   (+ a b c))
 113   "this.a + this.b + this.c;")
 114
 115 (test-ps-js regular-expression-literals-1
 116   (regex "foobar")
 117   "/foobar/")
 118
 119 (test-ps-js regular-expression-literals-2
 120   (regex "/foobar/i")
 121   "/foobar/i")
 122
 123 (test-ps-js literal-symbols-1
 124   T
 125   "true")
 126
 127 (test-ps-js literal-symbols-2
 128   FALSE
 129   "false")
 130
 131 (test-ps-js literal-symbols-3
 132   NIL
 133   "null")
 134
 135 (test-ps-js literal-symbols-4
 136   UNDEFINED
 137   "undefined")
 138
 139 (test-ps-js literal-symbols-5
 140   THIS
 141   "this")
 142
 143 (test-ps-js variables-1
 144   variable
 145   "variable")
 146
 147 (test-ps-js variables-2
 148   a-variable
 149   "aVariable")
 150
 151 (test-ps-js variables-3
 152   *math
 153   "Math")
 154
 155 (test-ps-js variables-4
 156   *math.floor
 157   "Math.floor")
 158
 159 (test-ps-js function-calls-and-method-calls-1
 160   (blorg 1 2)
 161   "blorg(1, 2)")
 162
 163 (test-ps-js function-calls-and-method-calls-2
 164   (foobar (blorg 1 2) (blabla 3 4) (array 2 3 4))
 165   "foobar(blorg(1, 2), blabla(3, 4), [ 2, 3, 4 ])")
 166
 167 (test-ps-js function-calls-and-method-calls-3
 168   ((aref foo i) 1 2)
 169   "foo[i](1, 2)")
 170
 171 (test-ps-js function-calls-and-method-calls-4
 172   (.blorg this 1 2)
 173   "this.blorg(1, 2)")
 174
 175 (test-ps-js function-calls-and-method-calls-5
 176   (this.blorg 1 2)
 177   "this.blorg(1, 2)")
 178
 179 (test-ps-js function-calls-and-method-calls-6
 180   (.blorg (aref foobar 1) NIL T)
 181   "foobar[1].blorg(null, true)")
 182
 183 (test-ps-js operator-expressions-1
 184   (* 1 2)
 185   "1 * 2")
 186
 187 (test-ps-js operator-expressions-2
 188   (= 1 2)
 189   "1 == 2")
 190
 191 (test-ps-js operator-expressions-3
 192   (eql 1 2)
 193   "1 == 2")
 194
 195 (test-ps-js operator-expressions-5
 196   (* 1 (+ 2 3 4) 4 (/ 6 7))
 197   "1 * (2 + 3 + 4) * 4 * (6 / 7)")
 198
 199 (test-ps-js operator-expressions-6
 200   (incf i)
 201   "++i")
 202
 203 (test-ps-js operator-expressions-7
 204   (decf i)
 205   "--i")
 206
 207 (test-ps-js operator-expressions-8
 208   (1- i)
 209   "i - 1")
 210
 211 (test-ps-js operator-expressions-9
 212   (1+ i)
 213   "i + 1")
 214
 215 (test-ps-js operator-expressions-10
 216   (not (< i 2))
 217   "i >= 2")
 218
 219 (test-ps-js operator-expressions-11
 220   (not (eql i 2))
 221   "i != 2")
 222
 223 (test-ps-js body-forms-1
 224   (progn (blorg i) (blafoo i))
 225   "blorg(i);
 226 blafoo(i);")
 227
 228 (test-ps-js body-forms-2
 229   (+ i (progn (blorg i) (blafoo i)))
 230   "i + (blorg(i), blafoo(i))")
 231
 232 (test-ps-js function-definition-1
 233   (defun a-function (a b)
 234   (return (+ a b)))
 235   "function aFunction(a, b) {
 236   return a + b;
 237 }")
 238
 239 (test-ps-js function-definition-2
 240   (lambda (a b) (return (+ a b)))
 241   "function (a, b) {
 242   return a + b;
 243 }")
 244
 245 (test-ps-js assignment-1
 246   (setf a 1)
 247   "a = 1;")
 248
 249 (test-ps-js assignment-2
 250   (setf a 2 b 3 c 4 x (+ a b c))
 251   "a = 2;
 252 b = 3;
 253 c = 4;
 254 x = a + b + c;")
 255
 256 (test-ps-js assignment-3
 257   (setf a (1+ a))
 258   "a++;")
 259
 260 (test-ps-js assignment-4
 261   (setf a (+ a 2 3 4 a))
 262   "a += 2 + 3 + 4 + a;")
 263
 264 (test-ps-js assignment-5
 265   (setf a (- 1 a))
 266   "a = 1 - a;")
 267
 268 (test-ps-js single-argument-statements-1
 269   (return 1)
 270   "return 1")
 271
 272 (test-ps-js single-argument-statements-2
 273   (throw "foobar")
 274   "throw 'foobar'")
 275
 276 (test-ps-js single-argument-expression-1
 277   (delete (new (*foobar 2 3 4)))
 278   "delete new Foobar(2, 3, 4)")
 279
 280 (test-ps-js single-argument-expression-2
 281   (if (= (typeof blorg) *string)
 282     (alert (+ "blorg is a string: " blorg))
 283     (alert "blorg is not a string"))
 284   "if (typeof blorg == String) {
 285   alert('blorg is a string: ' + blorg);
 286 } else {
 287   alert('blorg is not a string');
 288 }")
 289
 290 (test-ps-js conditional-statements-1
 291   (if (blorg.is-correct)
 292     (progn (carry-on) (return i))
 293     (alert "blorg is not correct!"))
 294   "if (blorg.isCorrect()) {
 295   carryOn();
 296   return i;
 297 } else {
 298   alert('blorg is not correct!');
 299 }")
 300
 301 (test-ps-js conditional-statements-2
 302   (+ i (if (blorg.add-one) 1 2))
 303   "i + (blorg.addOne() ? 1 : 2)")
 304
 305 (test-ps-js conditional-statements-3
 306   (when (blorg.is-correct)
 307   (carry-on)
 308   (return i))
 309   "if (blorg.isCorrect()) {
 310   carryOn();
 311   return i;
 312 }")
 313
 314 (test-ps-js conditional-statements-4
 315   (unless (blorg.is-correct)
 316   (alert "blorg is not correct!"))
 317   "if (!blorg.isCorrect()) {
 318   alert('blorg is not correct!');
 319 }")
 320
 321 (test-ps-js variable-declaration-1
 322   (defvar *a* (array 1 2 3))
 323   "var A = [ 1, 2, 3 ]")
 324
 325 (test-ps-js variable-declaration-2
 326   (if (= i 1)
 327     (progn (defvar blorg "hallo")
 328            (alert blorg))
 329     (progn (defvar blorg "blitzel")
 330            (alert blorg)))
 331   "if (i == 1) {
 332   var blorg = 'hallo';
 333   alert(blorg);
 334 } else {
 335   var blorg = 'blitzel';
 336   alert(blorg);
 337 }")
 338
 339 (test-ps-js variable-declaration-3
 340   (if (= i 1)
 341     (let ((blorg "hallo"))
 342       (alert blorg))
 343     (let ((blorg "blitzel"))
 344       (alert blorg)))
 345   "if (i == 1) {
 346   var blorg = 'hallo';
 347   alert(blorg);
 348 } else {
 349   var blorg = 'blitzel';
 350   alert(blorg);
 351 }")
 352
 353 (test-ps-js iteration-constructs-1
 354   (do ((i 0 (1+ i))
 355      (l (aref blorg i) (aref blorg i)))
 356     ((or (= i blorg.length)
 357          (eql l "Fumitastic")))
 358   (document.write (+ "L is " l)))
 359   "for (var i = 0, l = blorg[i];
 360      !(i == blorg.length || l == 'Fumitastic');
 361      i = i + 1, l = blorg[i]) {
 362   document.write('L is ' + l);
 363 }")
 364
 365 (test-ps-js iteration-constructs-2
 366   (dotimes (i blorg.length)
 367   (document.write (+ "L is " (aref blorg i))))
 368   "for (var i = 0; i < blorg.length; i = i + 1) {
 369   document.write('L is ' + blorg[i]);
 370 }")
 371
 372 (test-ps-js iteration-constructs-3
 373   (dolist (l blorg)
 374   (document.write (+ "L is " l)))
 375   "  var tmpArr1 = blorg;
 376   for (var tmpI2 = 0; tmpI2 < tmpArr1.length;
 377     tmpI2 = tmpI2 + 1) {
 378     var l = tmpArr1[tmpI2];
 379     document.write('L is ' + l);
 380   };")
 381
 382 (test-ps-js iteration-constructs-4
 383   (doeach (i object)
 384    (document.write (+ i " is " (aref object i))))
 385   "for (var i in object) {
 386   document.write(i + ' is ' + object[i]);
 387 }")
 388
 389 (test-ps-js iteration-constructs-5
 390   (while (film.is-not-finished)
 391   (this.eat (new *popcorn)))
 392   "while (film.isNotFinished()) {
 393   this.eat(new Popcorn);
 394 }")
 395
 396 (test-ps-js the-case-statement-1
 397   (case (aref blorg i)
 398   ((1 "one") (alert "one"))
 399   (2 (alert "two"))
 400   (t (alert "default clause")))
 401   "switch (blorg[i]) {
 402   case 1:
 403   case 'one':
 404             alert('one');
 405             break;
 406   case 2:
 407             alert('two');
 408             break;
 409   default:   alert('default clause');
 410 }")
 411
 412 (test-ps-js the-case-statement-2
 413   (switch (aref blorg i)
 414   (1 (alert "If I get here"))
 415   (2 (alert "I also get here"))
 416   (default (alert "I always get here")))
 417   "switch (blorg[i]) {
 418   case 1:   alert('If I get here');
 419   case 2:   alert('I also get here');
 420   default:   alert('I always get here');
 421 }")
 422
 423 (test-ps-js the-with-statement-1
 424   (with (create :foo "foo" :i "i")
 425   (alert (+ "i is now intermediary scoped: " i)))
 426   "with ({ foo : 'foo',
 427         i : 'i' }) {
 428   alert('i is now intermediary scoped: ' + i);
 429 }")
 430
 431 (test-ps-js the-try-statement-1
 432   (try (throw "i")
 433  (:catch (error)
 434    (alert (+ "an error happened: " error)))
 435  (:finally
 436    (alert "Leaving the try form")))
 437   "try {
 438   throw 'i';
 439 } catch (error) {
 440   alert('an error happened: ' + error);
 441 } finally {
 442   alert('Leaving the try form');
 443 }")
 444
 445 (test-ps-js the-html-generator-1
 446   (html ((:a :href "foobar") "blorg"))
 447   "'<a href=\"foobar\">blorg</a>'")
 448
 449 (test-ps-js the-html-generator-2
 450   (html ((:a :href (generate-a-link)) "blorg"))
 451   "'<a href=\"' + generateALink() + '\">blorg</a>'")
 452
 453 (test-ps-js the-html-generator-3
 454   (document.write
 455   (html ((:a :href "#"
 456             :onclick (ps-inline (transport))) "link")))
 457   "document.write('<a href=\"#\" onclick=\"' + 'javascript:transport();' + '\">link</a>')")
 458
 459 (test-ps-js the-html-generator-4
 460   (let ((disabled nil)
 461       (authorized t))
 462    (setf element.inner-h-t-m-l
 463          (html ((:textarea (or disabled (not authorized)) :disabled "disabled")
 464                 "Edit me"))))
 465   "   var disabled = null;
 466    var authorized = true;
 467    element.innerHTML =
 468    '<textarea'
 469    + (disabled || !authorized ? ' disabled=\"' + 'disabled' + '\"' : '')
 470    + '>Edit me</textarea>';")
 471
 472 (test-ps-js the-html-generator-5
 473   (css-inline :color "red"
 474             :font-size "x-small")
 475   "'color:red;font-size:x-small'")
 476
 477 (test-ps-js the-html-generator-6
 478   (defun make-color-div(color-name)
 479     (return (html ((:div :style (css-inline :color color-name))
 480                    color-name " looks like this."))))
 481   "function makeColorDiv(colorName) {
 482   return '<div style=\"' + ('color:' + colorName) + '\">' + colorName
 483     + ' looks like this.</div>';
 484 }")
 485