pico-8 cartridge // http://www.pico-8.com
version 8
__lua__
-- zepto-8 conformance tests
-- for lua syntax extensions

-- small test framework
do local sec, sn, ctx, cn = "", 0, "", 0
   local fail, total = 0, 0
   function section(name)
       sec = name
       sn += 1
   end
   function fixture(name)
       ctx = name
       cn += 1
       a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z =
       0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
   end
   function test_equal(x, y)
       total = total + 1
       if x ~= y then
           print(ctx.." failed: '"..x.."' != '"..y.."'")
           fail = fail + 1
       end
   end
   function summary()
       print("\n"..total.." tests - "..(total - fail).." passed, "..fail.." failed.")
   end
end

--
-- t1. check that != works properly
--

fixture "t1.01"
    test_equal(1 != 1, false)

fixture "t1.02"
    test_equal(1 != 2, true)

fixture "t1.03"
    test_equal((1 != 2) != (3 != 4), false)

fixture "t1.04"
    test_equal("!=", "!".."=")

--
-- t2. check several variations of the += syntactic sugar
--

fixture "t2.01"
    x += 1
    test_equal(x, 1)

fixture "t2.02"
    x +=1
    test_equal(x, 1)

fixture "t2.03"
    x+= 1
    test_equal(x, 1)

fixture "t2.04"
    x+=1 x+=1
    test_equal(x, 2)

fixture "t2.05"
    x+=1;x+=1
    test_equal(x, 2)

fixture "t2.06"
    x+=(1)x+=1
    test_equal(x, 2)

-- this is not pretty but should be legal because lua parses numbers
-- until the last legal digit/character
fixture "t2.07"
    x+=1x+=1
    test_equal(x, 2)

fixture "t2.08"
    x+=1-- intrusive comment
    test_equal(x, 1)

-- XXX: PICO-8 does not support multiline reassignments, so we
-- disabled it in zepto8, too, but it could be re-added.
--fixture "t2.09"
--x-- more
--+=-- intrusive
--1-- comments
--test_equal(x, 1)

-- nested reassignments; will confuse most regex-based methods that
-- attempt to convert pico-8 code to standard lua
fixture "t2.10"
    x+=(function(x)x+=1 return x end)(2)
    test_equal(x, 3)

fixture "t2.11" -- nested reassignments and ugliness!
    x+=1x+=(function(x)x+=1x+=x return x end)(1)
    test_equal(x, 5)

fixture "t2.12"
    do a=1 local a+=2 x=a end
    test_equal(x, 3)
  

--
-- t3. check several variations of if/then or if without then
--

fixture "t3.01"
    if (x == 0) x = 1
    test_equal(x, 1)

-- XXX: disabled (PICO-8 does not support this)
--fixture "t3.02"
--if (x == 0) x = 1 if (x == 1) x = 2
--test_equal(x, 2)

fixture "t3.03"
    for i=0,9 do if (i != 0) x = i end
    test_equal(x, 9)

-- XXX: disabled (PICO-8 does not support this)
--fixture "t3.04"
--for i=0,9 do if (i > 5) for j=0,9 do if (j > 5) x = i + j end end
--test_equal(x, 18)

fixture "t3.05"
    if ((x == 0)
      ) then x = 1 end
    test_equal(x, 1)

fixture "t3.06"
    if ((x != 1) and
        (x != 2)) then x = 1 end
    test_equal(x, 1)

fixture "t3.07"
    function f()
       if (x != 0) return
       x = 1
    end
    f()
    test_equal(x, 1)

fixture "t3.08"
    if (true) or (true) then
        x = 1
    end
    test_equal(x, 1)

fixture "t3.09"
    if (x == 1) x = 0 else x = 1
    test_equal(x, 1)

fixture "t3.10"
    if (x == 0) x = 1-- intrusive comment
    test_equal(x, 1)

fixture "t3.11"
    if (x == 0) x = 1// intrusive comment
    test_equal(x, 1)

--
-- t4. check that C++ comments work properly
--

fixture "t4.01"
    x = 4 // 2
    test_equal(x, 4)

fixture "t4.02"
    x += 4//2
    test_equal(x, 4)

--
-- t5. check that short prints are supported

fixture "t5.01"
    ?""
    test_equal(true, true)

fixture "t5.02"
    ?""-- intrusive comment
    test_equal(true, true)

fixture "t5.03"
    ?""// intrusive comment
    test_equal(true, true)

--
-- print report
--

summary()