start test5

pitfall/pitfall/test/test4.pdf

@@ -168,7 +168,7 @@ endobj
 <<
 /Producer (PDFKit)
 /Creator (PDFKit)
-/CreationDate (D:20170517045710Z)
+/CreationDate (D:20170517051245Z)
 >>
 endobj
 13 0 obj

pitfall/pitfall/test/test5.coffee

@@ -0,0 +1,16 @@
+PDFDocument = require 'pdfkit'
+tiger = require './assets/tiger'
+fs = require 'fs'
+
+# Create a new PDFDocument
+doc = new PDFDocument
+doc.pipe fs.createWriteStream('test5.pdf')
+
+# Set the font, draw some text, and embed an image
+doc.font('Times-Italic')
+   .fontSize(25)
+   .text('Some text with an embedded font!', 100, 100, lineBreak: no)
+   .image('assets/test.png', 100, 160, width: 412)
+   .image('assets/test.jpeg', 190, 400, height: 300)
+   
+doc.end()

pitfall/pitfall/test/test5.rkt

@@ -0,0 +1,20 @@
+#lang pitfall/pdftest
+(define-runtime-path this "test5rkt.pdf")
+
+(check-true
+ (let ([doc (new PDFDocument)])
+   (send doc pipe (open-output-file this #:exists 'replace))
+
+   ;; # Set the font, draw some text, and embed an image
+(send* doc
+  [font "Times-Italic"]
+  [fontSize 25]
+  [text "Some text with an embedded font!" 100 100 (hash 'lineBreak #f)]
+  [image "assets/test.png" 100 160 (hash 'width 412)]
+  [image "assets/test.jpeg" 190 400 (hash 'height 300)]
+ )
+
+   
+   (send doc end)))
+
+;(check-copy-equal? this)