← Back to branch summary

~zorba-coders/zorba/bug-874679-image-module

« back to all changes in this revision

Viewing changes to test/Queries/image/paint_4.xq

  • Committer: Tarmac
  • Author(s): Matthias Brantner
  • Date: 2012-04-12 12:51:54 UTC
  • mfrom: (45.1.1 image)
  • Revision ID: tarmac-20120412125154-cyzdz8far9a3r49c
fix for bug #978722 (change annotation prefix from "ann" to "an") Approved: William Candillon, Matthias Brantner

Show diffs side-by-side

added added

removed removed

Lines of Context:
test/Queries/image/paint_4.xq
8
8
import module namespace paint = 'http://www.zorba-xquery.com/modules/image/paint';
9
9
import schema namespace image = 'http://www.zorba-xquery.com/modules/image/image';
10
10
 
11
 
declare namespace ann = "http://www.zorba-xquery.com/annotations";
 
11
declare namespace an = "http://www.zorba-xquery.com/annotations";
12
12
 
13
13
declare variable $local:image-dir := fn:concat(file:dir-name(fn:static-base-uri()), "/images/");
14
14
 
38
38
(:~
39
39
 : @return true if the man:draw-rectangle function works.
40
40
 :)
41
 
declare %ann:nondeterministic function local:test-draw-rectangle() as xs:boolean {
 
41
declare %an:nondeterministic function local:test-draw-rectangle() as xs:boolean {
42
42
    let $draw := paint:paint($local:gif, <image:rectangle><image:upperLeft><image:x>20</image:x><image:y>20</image:y></image:upperLeft><image:lowerRight><image:x>50</image:x><image:y>50</image:y></image:lowerRight></image:rectangle>)
43
43
    let $draw-ref := file:read-binary(concat($local:image-dir, "paint/rectangle.gif"))
44
44
    return basic:equals($draw, $draw-ref)
47
47
(:~
48
48
 : @return true if the man:draw-rectangle function works.
49
49
 :)
50
 
declare %ann:nondeterministic function local:test-draw-rectangle-green() as xs:boolean {
 
50
declare %an:nondeterministic function local:test-draw-rectangle-green() as xs:boolean {
51
51
    let $draw := paint:paint($local:gif, <image:rectangle><image:strokeColor>#00AF00</image:strokeColor><image:upperLeft><image:x>20</image:x><image:y>20</image:y></image:upperLeft><image:lowerRight><image:x>50</image:x><image:y>50</image:y></image:lowerRight></image:rectangle>)
52
52
    let $draw-ref := file:read-binary(concat($local:image-dir, "paint/rectangleGreen.gif"))
53
53
    return basic:equals($draw, $draw-ref)
57
57
(:~
58
58
 : @return true if the man:draw-rectangle function works.
59
59
 :)
60
 
declare %ann:nondeterministic function local:test-draw-rectangle-green-red() as xs:boolean {
 
60
declare %an:nondeterministic function local:test-draw-rectangle-green-red() as xs:boolean {
61
61
    let $draw := paint:paint($local:gif, <image:rectangle><image:strokeColor>#00AF00</image:strokeColor><image:fillColor>#A10000</image:fillColor><image:upperLeft><image:x>20</image:x><image:y>20</image:y></image:upperLeft><image:lowerRight><image:x>50</image:x><image:y>50</image:y></image:lowerRight></image:rectangle>)
62
62
    let $draw-ref := file:read-binary(concat($local:image-dir, "paint/rectangleGreenRed.gif"))
63
63
    return basic:equals($draw, $draw-ref)
67
67
(:~
68
68
 : @return true if the man:draw-rectangle function works.
69
69
 :)
70
 
declare %ann:nondeterministic function local:test-draw-rectangle-anti-aliased() as xs:boolean {
 
70
declare %an:nondeterministic function local:test-draw-rectangle-anti-aliased() as xs:boolean {
71
71
    let $draw := paint:paint($local:gif, <image:rectangle><image:strokeWidth>5</image:strokeWidth><image:strokeColor>#00AF00</image:strokeColor><image:fillColor>#A10000</image:fillColor><image:antiAliasing>true</image:antiAliasing><image:upperLeft><image:x>20</image:x><image:y>20</image:y></image:upperLeft><image:lowerRight><image:x>50</image:x><image:y>50</image:y></image:lowerRight></image:rectangle>)
72
72
    let $draw-ref := file:read-binary(concat($local:image-dir, "paint/rectangleAntiAliased.gif"))
73
73
    return basic:equals($draw, $draw-ref)
76
76
(:~
77
77
 : @return true if the man:draw-rounded-rectangle function works.
78
78
 :)
79
 
declare %ann:nondeterministic function local:test-draw-rounded-rectangle() as xs:boolean {
 
79
declare %an:nondeterministic function local:test-draw-rounded-rectangle() as xs:boolean {
80
80
    let $draw := paint:paint($local:gif, <image:roundedRectangle><image:upperLeft><image:x>20</image:x><image:y>20</image:y></image:upperLeft><image:lowerRight><image:x>50</image:x><image:y>50</image:y></image:lowerRight><image:cornerWidth>10</image:cornerWidth><image:cornerHeight>10</image:cornerHeight></image:roundedRectangle>)
81
81
    let $draw-ref := file:read-binary(concat($local:image-dir, "paint/rectangleRounded.gif"))
82
82
    return basic:equals($draw, $draw-ref)
85
85
(:~
86
86
 : @return true if the man:draw-rounded-rectangle function works.
87
87
 :)
88
 
declare %ann:nondeterministic function local:test-draw-rounded-rectangle-blue() as xs:boolean {
 
88
declare %an:nondeterministic function local:test-draw-rounded-rectangle-blue() as xs:boolean {
89
89
    let $draw := paint:paint($local:gif, <image:roundedRectangle><image:strokeColor>#0000FF</image:strokeColor><image:upperLeft><image:x>20</image:x><image:y>20</image:y></image:upperLeft><image:lowerRight><image:x>50</image:x><image:y>50</image:y></image:lowerRight><image:cornerWidth>10</image:cornerWidth><image:cornerHeight>10</image:cornerHeight></image:roundedRectangle>)
90
90
    let $draw-ref := file:read-binary(concat($local:image-dir, "paint/rectangleRoundedBlue.gif"))
91
91
    return basic:equals($draw, $draw-ref)
95
95
(:~
96
96
 : @return true if the man:draw-rounded-rectangle function works.
97
97
 :)
98
 
declare %ann:nondeterministic function local:test-draw-rounded-rectangle-blue-green() as xs:boolean {
 
98
declare %an:nondeterministic function local:test-draw-rounded-rectangle-blue-green() as xs:boolean {
99
99
    let $draw := paint:paint($local:gif, <image:roundedRectangle><image:strokeColor>#0000FF</image:strokeColor><image:fillColor>#00FF00</image:fillColor><image:upperLeft><image:x>20</image:x><image:y>20</image:y></image:upperLeft><image:lowerRight><image:x>50</image:x><image:y>50</image:y></image:lowerRight><image:cornerWidth>10</image:cornerWidth><image:cornerHeight>10</image:cornerHeight></image:roundedRectangle>)
100
100
    let $draw-ref := file:read-binary(concat($local:image-dir, "paint/rectangleRoundedBlueGreen.gif"))
101
101
    return basic:equals($draw, $draw-ref)
105
105
(:~
106
106
 : @return true if the man:draw-rounded-rectangle function works.
107
107
 :)
108
 
declare %ann:nondeterministic function local:test-draw-rounded-rectangle-anti-aliased() as xs:boolean {
 
108
declare %an:nondeterministic function local:test-draw-rounded-rectangle-anti-aliased() as xs:boolean {
109
109
    let $draw := paint:paint($local:gif, <image:roundedRectangle><image:strokeColor>#0000FF</image:strokeColor><image:fillColor>#00FF00</image:fillColor><image:antiAliasing>true</image:antiAliasing><image:upperLeft><image:x>20</image:x><image:y>20</image:y></image:upperLeft><image:lowerRight><image:x>50</image:x><image:y>50</image:y></image:lowerRight><image:cornerWidth>10</image:cornerWidth><image:cornerHeight>10</image:cornerHeight></image:roundedRectangle>)
110
110
    let $draw-ref := file:read-binary(concat($local:image-dir, "paint/rectangleRoundedAntiAliased.gif"))
111
111
    return basic:equals($draw, $draw-ref)
112
112
};
113
113
 
114
114
 
115
 
declare %ann:nondeterministic %ann:sequential function local:main() as xs:string* {
 
115
declare %an:nondeterministic %an:sequential function local:main() as xs:string* {
116
116
 
117
117
  let $a := local:test-draw-rectangle()
118
118
  return