steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

google.charts: make the tests check more things.

char-rename
John Benediktsson 2016-12-21 15:25:00 -08:00
parent 2dbc57a120
commit 294f75f0c4
1 changed files with 26 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
extra/google/charts/charts-tests.factor
View File

@ -1,35 +1,42 @@
! Copyright (C) 2016 Alexander Ilin. ! Copyright (C) 2016 Alexander Ilin.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors colors.constants google.charts USING: accessors colors.constants google.charts
google.charts.private kernel present sequences tools.test ; google.charts.private kernel math present sequences tools.test ;
IN: google.charts.tests IN: google.charts.tests
[ f ] [ { t } [
{ 0 0 } <line> COLOR: red >>background chart>url present length
{ 0 0 } <line> chart>url present length = { 0 0 } <line>
{ 0 0 } <line> COLOR: red >>background
[ chart>url present length ] bi@ <
] unit-test ] unit-test
[ f ] [ { t } [
{ 0 0 } <line> COLOR: red >>foreground chart>url present length { 0 0 } <line>
{ 0 0 } <line> chart>url present length = { 0 0 } <line> COLOR: red >>foreground
[ chart>url present length ] bi@ <
] unit-test ] unit-test
[ f ] [ { t } [
"" <formula> t >>data-scale chart>url present length "" <formula>
"" <formula> chart>url present length = "" <formula> t >>data-scale
[ chart>url present length ] bi@ <
] unit-test ] unit-test
[ f ] [ { t } [
{ 0 0 } <line> f >>width f >>height chart>url present length { 0 0 } <line>
{ 0 0 } <line> chart>url present length = { 0 0 } <line> f >>width f >>height
[ chart>url present length ] bi@ >
] unit-test ] unit-test
[ f ] [ { t } [
{ 0 0 } <line> { 0 0 } >>margin chart>url present length { 0 0 } <line>
{ 0 0 } <line> chart>url present length = { 0 0 } <line> { 0 0 } >>margin
[ chart>url present length ] bi@ <
] unit-test ] unit-test
[ f ] [ { t } [
{ 0 0 } <line> 5 >>bar-width chart>url present length { 0 0 } <line>
{ 0 0 } <line> chart>url present length = { 0 0 } <line> 5 >>bar-width
[ chart>url present length ] bi@ <
] unit-test ] unit-test