Skip to content

Instantly share code, notes, and snippets.

@wchristian

wchristian/gist:4b3a249a19850d808f9b Secret

Created May 3, 2014 23:18
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save wchristian/4b3a249a19850d808f9b to your computer and use it in GitHub Desktop.
Save wchristian/4b3a249a19850d808f9b to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
ok 74 - $o2->calc("dup")
ok 75 - $o1->calc("dup,+")
ok 76 - $o2->calc("dec")
ok 77 - $o2->calc("inc")
ok 78 - $o1->calc("dec,4,swap,3,swap,2,swap,?")
ok 79 - $o1->calc("inc,4,swap,3,swap,2,swap,?")
ok 80 - $o1->calc("dec,4,swap,3,swap,2,swap,if")
ok 81 - $o1->calc("inc,4,swap,3,swap,2,swap,if")
ok 82 - $o1->calc("10,rand,*")
~~Dr.M~~
~~Dr.M~~ Error #6: UNINITIALIZED READ: reading 0x0145f96c-0x0145f970 4 byte(s)
~~Dr.M~~ # 0 dll.exp.dll!rpn_pop [d:\cpan\OpenGL/pogl_rpn.xs:622]
~~Dr.M~~ # 1 dll.exp.dll!rpn_exec [d:\cpan\OpenGL/pogl_rpn.xs:1001]
~~Dr.M~~ # 2 dll.exp.dll!XS_OpenGL__Array_calc [d:\cpan\OpenGL/pogl_rpn.xs:1422]
~~Dr.M~~ # 3 perl512.dll!Perl_find_runcv +0x9ae0 (0x2804a390 <perl512.dll+0x4a390>)
~~Dr.M~~ # 4 perl512.dll!Perl_runops_standard +0xb (0x280725cb <perl512.dll+0x725cb>)
~~Dr.M~~ # 5 perl512.dll!RunPerl +0xec (0x280a3bc0 <perl512.dll+0xa3bc0>)
~~Dr.M~~ # 6 perl.exe!? +0x0 (0x00401012 <perl.exe+0x1012>)
~~Dr.M~~ # 7 KERNEL32.dll!BaseThreadInitThunk +0x11 (0x7727338a <KERNEL32.dll+0x1338a>)
~~Dr.M~~ Note: @0:00:13.455 in thread 55468
~~Dr.M~~ Note: instruction: fld 0xfffffff8(%ebp) -> %st0
ok 83 - $o2->calc("get,+,set") # TODO OpenGL::Array tests under development
not ok 84 - $o1->calc("get,+,set","","") # TODO OpenGL::Array tests under development
# Failed (TODO) test '$o1->calc("get,+,set","","")'
# at t\10_opengl_array.t line 317.
# got: '-1 2 3 -1 5 6 -1 8 9'
# expected: ' 1 2 3 5 5 6 12 8 9'
ok 85 - $o1->calc("2,colget", "", "")
ok 86 - $o1->calc("2,colset", "", "")
ok 87 - $o1->calc("1,2,rowget", "2,1,rowget", ""
ok 88 - $o1->calc("1,2,rowset", "2,1,rowset", "0,0,rowset")
ok 89 - $o1->calc("0,store,get","get","get")
ok 90 - $o1->calc($o2,$o3,$o4,"0,store,get","get","get")
ok 91 - $o1->calc($o2,$o3,$o4,"1,store","","")
ok 92 - $o1->calc($o2,$o3,$o4,"1,store,get","","get")
ok 93 - $o1->calc($o2,$o3,$o4,"2,store,get")
ok 94 - $o1->calc($o2,$o3,$o4,"3,store,get")
ok 95 - $o1->calc($o2, "1,store,get","","get")
ok 96 - $o1->calc("-10,+")
ok 97 - $o1->calc("","","0,store,1,load")
ok 98 - $o1->calc("","","0,store,1,load")
ok 99 - $o1->calc($o2,$o3,$o4,"","","2,store,3,load")
ok 100 - $o1->calc($o2,$o3,$o4,"","","2,store,3,load")
ok 101 - $o1->calc($o2,$o3,$o4,"","","2,store,3,load")
ok 102 - $o1->calc($o2,$o3,$o4,"","","2,store,3,load")
~~Dr.M~~
~~Dr.M~~ Error #7: UNINITIALIZED READ: reading 0x03302380-0x03302384 4 byte(s)
~~Dr.M~~ # 0 dll.exp.dll!XS_OpenGL__Array_retrieve [d:\cpan\OpenGL/pogl_rpn.xs:1652]
~~Dr.M~~ # 1 perl512.dll!Perl_find_runcv +0x9ae0 (0x2804a390 <perl512.dll+0x4a390>)
~~Dr.M~~ # 2 perl512.dll!Perl_runops_standard +0xb (0x280725cb <perl512.dll+0x725cb>)
~~Dr.M~~ # 3 perl512.dll!RunPerl +0xec (0x280a3bc0 <perl512.dll+0xa3bc0>)
~~Dr.M~~ # 4 perl.exe!? +0x0 (0x00401012 <perl.exe+0x1012>)
~~Dr.M~~ # 5 KERNEL32.dll!BaseThreadInitThunk +0x11 (0x7727338a <KERNEL32.dll+0x1338a>)
~~Dr.M~~ Note: @0:00:13.735 in thread 55468
~~Dr.M~~ Note: instruction: fld (%eax) -> %st0
not ok 103 - $o1->calc($o2, "set","", "set,1,store") # TODO OpenGL::Array tests under development
# Failed (TODO) test '$o1->calc($o2, "set","", "set,1,store")'
# at t\10_opengl_array.t line 385.
# got: ' 1 -1 3 4 -1 6 7 -1 9'
# expected: ' 1 0 3 4 0 6 7 0 9'
ok 104 - $o2->calc(3,"5,end,8","")
ok 105 - $o2->calc(3,"5,end,8",9)
ok 106 - $o2->calc(3,"5,return,8","")
ok 107 - $o2->calc(3,"5,return,8",9)
ok 108 - $o2->calc(3,"5,1,endif,8","")
ok 109 - $o2->calc(3,"5,0,endif,8","")
ok 110 - $o2->calc(3,"5,1,returnif,8","")
ok 111 - $o2->calc(3,"5,0,returnif,8","")
ok 112 - $o2->calc(3,"5,endrow,8",9)
ok 113 - $o2->calc(3,"5,returnrow,8",9)
ok 114 - $o2->calc(3,"5,1,endrowif,8",9)
ok 115 - $o2->calc(3,"5,0,endrowif,8",9)
ok 116 - $o2->calc(3,"5,1,returnrowif,8",9)
ok 117 - $o2->calc(3,"5,0,returnrowif,8",9)
ok 118 - $o2->calc("sum")
ok 119 - $o2->calc("1,2,sum")
ok 120 - $o2->calc("avg")
ok 121 - $o2->calc("5,avg")
ok 122 - $o2->calc("-,abs")
ok 123 - $o2->calc("abs")
ok 124 - $o2->calc("power")
ok 125 - $o1->calc("2,power")
ok 126 - $o2->calc("min")
ok 127 - $o2->calc("5,min")
ok 128 - $o2->calc("max")
ok 129 - $o2->calc("5,max")
ok 130 - $o2->calc("pi")
ok 131 - $o2->calc("dec,6,min,10,swap,power,pi,*,10,%")
ok 132 - $o2->calc("10,/,pi,*,sin,10,*")
ok 133 - $o2->calc("10,/,pi,*,cos,10,*")
ok 134 - $o2->calc("10,/,pi,*,tan,10,*,abs,100,min")
ok 135 - $o2->calc("1,swap,atan2,400,*,dup,0,swap,300,<,?")
ok 136 - $o2->calc("count","count","count")
ok 137 - $o2->calc("index","index","index")
ok 138 - $o2->calc("columns","columns","columns")
ok 139 - $o2->calc("column","column","column")
ok 140 - $o2->calc("rows","rows","rows")
ok 141 - $o2->calc("row","row","row")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment