@main[]
image code coverage tests:
$i[^image::create(100;100)]
1. ^i.line(0;0;100;100;255)
2. ^i.bar(40;0;80;30;0xFF00)
3. ^i.replace(255;128)
4. ^i.fill(5;50;0xE0E0E0)
5. ^i.replace(0xFF00;0xFF00FF)[^replace_region[]]
^try-catch{ ^i.replace(0xFF00;0xFF00FF)[^table::create[nameless]{1 2 3}] }
6. ^i.polybar(0xFFDDDD)[^paint_region[]]
7. ^i.polygon(0xFF0000)[^paint_region[]]
8. ^i.polyline(0xAAAAFF)[^line_region[]]
9. ^i.sector(50;80;30;30;45;315;255*256*256)
10. ^i.pixel(5;20;128) ^i.pixel(5;20)
11. $f[^i.gif[name.gif]] ^json:string[$f; $.file[base64] ]
12. $ii[^image::measure[$f]] ^ii.html[]
13. $f[^file::create[content; $.name[unknown.format] ]]
^try-catch{ ^image::measure[$f] }
$f[^file::create[content; $.name[no-format] ]]
^try-catch{ ^image::measure[$f] }
15. $f[^file::create[content; $.name[format.png] ]]
^try-catch{ ^image::measure[$f] }
$f[^file::create[big enough content ****************************** ; $.name[format.png] ]]
^try-catch{ ^image::measure[$f] }
16. $f[^file::create[1; $.name[format.jpg] ]]
^try-catch{ ^image::measure[$f] }
$f[^file::create[content; $.name[format.jpg] ]]
^try-catch{ ^image::measure[$f] }
$f[^file::create[^#FF^#D8 JPEG content; $.name[format.jpg] ]]
^try-catch{ ^image::measure[$f] }
17. $f[^file::load[binary;096_dir/163.jpg]]
$ii[^image::measure[$f]] ^ii.html[]
18. $s[^try-catch{ ^image::load[no-such-file.gif] }] ^s.match[[^^']+/][]{/-real-path-was-here-/}]
19. ^try-catch{ ^image::load[390.html] }
@replace_region[]
^table::create{x y
60 5
90 5
90 25
60 25
}]
@paint_region[]
^table::create{x y
80 50
85 55
85 65
75 65
75 55}]
@line_region[]
^table::create{x y
10 40
5 50
10 60}]
E-mail: