From 8ab521b2e55858851de2ee5bd00b50792529c444 Mon Sep 17 00:00:00 2001
From: Matthias Kramm <kramm@quiss.org>
Date: Thu, 17 Sep 2009 13:36:10 +0200
Subject: [PATCH] added spec for pdf2swf url conversion

---
 spec/links.pdf      |  Bin 0 -> 8458 bytes
 spec/links.py       |   26 ++++++++++++++++++++++++++
 spec/links.spec.rb  |    9 +++++++++
 spec/spec_helper.rb |    8 ++++++++
 4 files changed, 43 insertions(+)
 create mode 100644 spec/links.pdf
 create mode 100644 spec/links.py
 create mode 100644 spec/links.spec.rb

diff --git a/spec/links.pdf b/spec/links.pdf
new file mode 100644
index 0000000000000000000000000000000000000000..230970a23c36d0904e47e35803f83461d018b204
GIT binary patch
literal 8458
zcmeHMc~leU7FQ9(5f@NP6_s&8L^QKzQ$R5+QdR+RAu2Hp8VLy`!{%10iaU$dB5Fk{
z?x=v`LG)Q!)LKPb(dR=c*4@@xsfr6~ecud82pNvedGDY09GOGr%bjnz_kO?on|r@F
zg?Ral#&`nA>F%9Nmmv&BVfE~JP$UB6h+mv+4mF|WCTY3(A>mXCJp-at(M&&5*Wb+z
z37}MS=(#W-NJ1gRN1>!C4dSDe(Ucb@S4UHjhX<skHIyt4O4&+;pi8RyNO&E3@9wmO
znN0UYH!U*>Gd;%FFC^eBBs6Owe%A4X&X|ovJGsJcV&l-_9yw86?CVdfZe|sBPg-)z
zuBW7iH%YNryU{E7b+K&ZxAIFKcXAi|P=j6$svCXq<WG=i`rQJ2W8c|zPu)x62PE5d
znz25=e)+Id&l^^i_|vnl$qt_PiA&0}S?dvBXMJ3`Js25f>3wxY+>bf0_7n#u?|Qdq
zPQv>m_AV6--kqK_MI>}_X-KMHu<WVhg9`tmS(Tg89=kT@MIQ8>btm?1$MlHt<y>zt
zma^Uup?Y_SIPMUe<&MCNngofb_0lKd`BrX+;TMN8HZ*F!tMJ(UZe{7sfS~3MX%83e
zkSX1U40K=FF#P0CCvIKy={_ss@uqi@erZ>x_nYQ_`TXp)l3SV!OAci`zfx`A)7`sw
zZs1|3o;S;5BRwsHkB`fq*7SJ+yzmy*EBwHoTTVGn(?Tw#cB_9f^Mzdc=GDv<Tf5yo
z)q{W7D|7#p(%|1RRzJPpbaX`7xIfmq74LncOnr`Lq$JZ@+!J<Bewy>HV^)!;Ki4CS
zu`M1U^d7-bj!Q5G&3}!>z|0EUPN;R~_j|vv+S*k*aeEK{A6E2SbmL@~4B}*xq?2#G
zWY?*C-;8vf&|_D9;=>Iuqf)<*4S#*Md~pxuJ0dS4z2MmRHIbusq&h%H5(bo1U09p=
zS-?5<(O*;z={rkh1B-hNn7DnLBO<#j8-Dh2pU8FR9{E0*{r1xSz`8EAo7E?w`eDhd
zO1$kir_ao`da$bdn!F-u;4aM}9G>`P|8;HyQwBQvTo{|h^#W@j>jr_?;0B!Q2Esfy
zWE9(W!fZNgC+FKKzmBd;45{qBumkp3d-T@e#@{Y}U1(cbI`@I3e0X`o{wv=gxpiSl
z<rl^ta49SlJ4|&e@ZmY+kB%FXb-~3W)KS{x<l{U|8fr}(FYC7bechk#H}WjcoSoj4
z9~>9&U2%Kxrka4QQ_>bVC@Su6*m9!dx2t$>+OdyOoVAZI03YKr4rV6h;6xZ2f*$T{
zm;Tj#=>8ci$R%BxZUx<wMpa08S?F3TzXwZ({cO`~V@2N!mK_?Y?kCz&NzY9DR^V}|
z2{VtIyaS7Et5NGme9NIzlh)P@=vUzq`u5tiapQS8oeFxd-?J~YKz(xL7MpzoI<JvV
z{3A1~wC;RN-;8XZqs~R>=vB@%USZ+dzkKhjQrFr+WxXsbzCmrCtXbasNVeKSnCE!K
zBXmH}Z)F`Pc@6oh9ZL+Xg0_N(ODmXpyyBjDJlley*@!eNH%a5}$pfcUj)^a_pY_J~
zT&!=0u6`-sZw<Lpy>vBsHvaUNmuvH`e7~4F5Lf-Ua^=Iwy%vMYoBBA^U);3v*3aRc
z=Qz9FPs)k68d7pNO*AjI<lnhT`(I7pIIC)EPGKY3ShQ|#zsTUO=Ml2BG2iW;Q^VI0
z%G>uIcB$`HJHMa*=9k+Xl25MMbHZ;_nc~gopP=gN7p3w?E;C;=JipQ4mUr~(+oA8D
zj2btt9gnoKiUDpomsN1{SjBx^MfWABjm7)i%5L!0NjoYBtPL5ousLSY?TL*g)L8q>
zf!!BH?Wn3d6)!zPXHxY=YZr%~P(Gn>X9?baSInUAf^639tQ9o}*USuk*1Z0~uikGO
zYgJ<(TW-$pzlEzjs}&O~V#6yF=TZS~9u<tvJZ}31X0vobaK2^Pv!Ul4FI8CQZ(p*x
zDZ9J(@3npprVjGRUzrv;L=*LEWmR<_$Nc>%{&j-Slu*wT!|q##1(mJuadUra_0{Qh
z*B4%Yj^%DxJu#)mDfhaY-R}oxTPar7L`ORH`}CL6gnq{{`ORM+DgytE9k(J*KFcz5
z-h|>W7L^7)JJyY^X}+>A{XONoO_PJvMqrcMG1@>7e4Kg8*pG7w0ymE!+%x}WE5WRn
zF4z^7RzEH3E#d3a=z6)}VzaGuCY0x)9Isgx8<xCiyCN#~$X@$pSAE@XHmtw)$s^yN
zo)*qK!uQWS<!kG^(06synFW>c%bV~b+nv5+ns3_GJbxj2YWE<b+Yd<B?AJ$Cf(zN2
zYLRD$YiaBDp2<Y5&Mn=TCf3Z}h)+zJbnv-HlfbWP_ri{2Z(#k~u~^SP7%4JX%q1Y)
zJOXkLKGxA<u+5{~%ArwjqwaraoipV0&Wp|2-Tjs>D~h)L{mMD}jAO&6^_;J{6O<Qm
z`}oeck{>;jG5(Id)2*(JII;P4L?IFoHFE2bne@m$_0fp!jI+e9z7EQQ|D2PZtr~n<
zRW!o+P*868%1@?z6`*-?bW`C`hZWVbApuoZmp3gt);RC>BG<!TZciON{b$QjVf1Uq
z<mtFADHwf7J5I6feV}DvwOqdQ^)D~xWxlW^1l|kV@rQxMgsuKCVlkddO-EBPFarvZ
z3CxEXUx9`eW;%h!9GFcUKuZB*Ou&Ga8fM=zprwQ{-2e*4bR$AwmK4C#7?=$)(9*yx
z>_96X##=^!Y*&X!JxD>09HLRn!zdbVp%9}kT$&-wqZ!w`&|UloLWl~(mxPw@kq)(R
zx9}(AmU4H0twgf?u9UaC7jKc!!cyMb-9k?EUY<qrB+Ijg@GO@1a)dh;gqD%}_U-Gm
zx|VpR4Yjzu8X_enWl~95hoYCC7I6K|YSorz2)%ugFu}SRCfIm0)CdIQ5M~U=0f>)U
zMFXi13KK292QD%4ihgrJm+;hh3h|WF3bhJC!jQ?Keh~99VlGX`k3o>+<Yb;UIfhoN
zm0F%!Gsnev8Y4z%nMMUr0cJ^@O*69wC{(c!0=8B6stcv$bR@GO7|Q<70M!gkLdb+L
zpvM%L50(!DN+J`~nrKSH_T+;;o-m<{x=D$$=n%C+MQaVy7$(zAJHuE%BfOenW<sJu
z%e7I@3kFx2WuwkQfN0cwD|K<u#!CG}`a75qSjv1FTS{_aPW~-n&T7>b=A`~@8VQr^
zThxGW(g<H|1N<-WO>#EvgZPe*j==%OP2tUIqYJMO!JGJh;mxWGD6Y-Mw*dP?@FtDI
zUjoX1TCIUcC_&6=dGV<(5W>npSbKq!0(gYi7yueED#nBu0WOg%iaVpIGw26g8=WYp
zz+iARp;XL<Lnw__t&%Af^JNSzz+sdo2|O0^P#zhN!O{^Ssq|bR$9a4nh6KvwaBvtr
zRq6sKs+0;jrP5N-ZD>Nj!TJzl$f=bj7}pXI5+sYGShfMX0hHj$)p39xK+g#i)F~j`
zN8<oHLa`7Q5+Wv~z>`23tx<qyJQQWX4laEQbdb!IX&BIGVO$qip_EpgsF71zn1vab
zL!r^qOg|XZ|44vL_XWdo2$`aYrsrxSaXvHn0~gf#jL#RtBuI()>==U2pcjOyfY~PY
z4vE+{pHF~33}{*}p;!O{8u3<v1098G4otQ%UMpp@0%I`hyF!SUA|{5?P%2<qB#P)>
z%+SXM74y*vAVvF!J0awssXqm>Sdau8DX%bU8-i5Xo=^?4T_d>$WYtDr4P(t|%>Q2p
znlt&wKL7OK`nZE1caSOL|1K<HT+^^sqjAO)0)8_C*{TerIy9_1QSelOiW4Msx{OW&
zvO@3_2$<9gq|`<^ACrawNgx%ikhP?gEp-%IqO~SkY&LJ^vTW%B<}@tJ)?sayWosBS
zmNm_h8DjzKOVo*su@K^~h}K5xDrvZ-;+WB@G-+DtN@TQ5sRpkfb{?I#TKlJHz@DQp
zDTYwPA1nZgDIbo34Kn8ZpZSATdYKUC%5X7PhN1$nBW=f`7$0nksZ0PgH<6LdF_5W@
zG1){W5Q7ZcL<Wi*j!eu4TW``&Eab>AOvG6iW6SNfV=;m`1T>W~#h8hV&mh=TMsj5$
zl%q2yVh)r|#)`!NByD9l%KTJiBEy;E5>pwUD<g#*U2sy&l?nOWHH1QrOdu9=*AR2}
zoWPi$KHBO>5(18Gpi1RngTT4^5q$1`5TMF6U4y`xLa^<+1j*E4ZDm3f)M6$wLLlbs
z2O(-lXOW1rE{QUycWu`o#3;vCgjm4oM`B!zlL8TEtPnT$J*|-`l$3@!77SC&r<gED
zLe**-W@!SDk)J9?4YS7w%ondnH;nY0;7NMnsF#owqCR}Fmso&HgkF4%#BeX6*yFEz
Xu+*)kWg40#7a@W3AtxvAU?1qen<j|K

literal 0
HcmV?d00001

diff --git a/spec/links.py b/spec/links.py
new file mode 100644
index 0000000..39e44cd
--- /dev/null
+++ b/spec/links.py
@@ -0,0 +1,26 @@
+from sys import * 
+from pdflib_py import * 
+p = PDF_new() 
+PDF_open_file(p, "links.pdf")
+
+PDF_set_parameter(p, "usercoordinates", "true")
+PDF_set_info(p, "Creator", "links.py")
+
+width=200
+height=200
+
+PDF_begin_page(p, width, height)
+def draw_link(x1,y1,x2,y2,url):
+    action = PDF_create_action(p, "URI", "url="+url);
+    optlist = "action={activate "+str(action)+"} linewidth=5"
+    PDF_create_annotation(p, x1,y1,x2,y2, "Link", optlist);
+draw_link(0, 0, 100, 100, "http://www.swftools.org")
+draw_link(0, 100, 100, 200, "http://www.quiss.org")
+PDF_end_page(p)
+
+PDF_begin_page(p, width, height)
+draw_link(0, 0, 100, 100, "http://www.pdf2swf.org")
+PDF_end_page(p)
+
+PDF_close(p)
+PDF_delete(p);
diff --git a/spec/links.spec.rb b/spec/links.spec.rb
new file mode 100644
index 0000000..25e754d
--- /dev/null
+++ b/spec/links.spec.rb
@@ -0,0 +1,9 @@
+require File.dirname(__FILE__) + '/spec_helper'
+
+describe "pdf conversion" do
+    convert_file "links.pdf" do
+        area_at(0,0,200,200).should_contain_link("http://www.swftools.org")
+        area_at(0,0,200,200).should_contain_link("http://www.pdf2swf.org")
+        area_at(0,0,200,200).should_contain_link("http://www.quiss.org")
+    end
+end
diff --git a/spec/spec_helper.rb b/spec/spec_helper.rb
index 1727b0f..876f1d4 100644
--- a/spec/spec_helper.rb
+++ b/spec/spec_helper.rb
@@ -56,6 +56,10 @@ class Area
 	text2 = @file.get_text(@x1,@y1,@x2,@y2) 
 	text2 == text or raise AreaError.new(self, "doesn't contain text \"#{text}\" (found: \"#{text2}\")")
     end
+    def should_contain_link(url)
+	links = @file.get_links(@x1,@y1,@x2,@y2) 
+	(links & [url]) or raise AreaError.new(self, "doesn't contain url \"#{url}\")
+    end
     def to_s
 	"(#{@x1},#{@y1},#{@x2},#{@y2})"
     end
@@ -134,6 +138,10 @@ class DocFile
 	#puts `swfstrings -x #{x1} -y #{y1} -W #{x2-x1} -H #{y2-y1} #{@swfname}`
 	`swfstrings -x #{x1} -y #{y1} -W #{x2-x1} -H #{y2-y1} #{@swfname}`.chomp
     end
+    def get_links(x1,y1,x2,y2)
+	self.convert()
+	`swfdump -a #{@swfname}`.scan(/GetUrl2? URL:"([^"]*)"/).inject([]) do |a,u| a + u end
+    end
     def get_area(x1,y1,x2,y2)
 	self.render()
 	data = @img.export_pixels(x1, y1, x2-x1, y2-y1, "RGB")
-- 
1.7.10.4