summaryrefslogtreecommitdiff
path: root/macros/luatex/generic/barracuda/test/test-code39/004-code39-test.tex
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-12-05 03:00:50 +0000
committerNorbert Preining <norbert@preining.info>2019-12-05 03:00:50 +0000
commit2905ee4c8de47cfdeea4787e465eb827f9b99e8b (patch)
tree802c26d7002fd7e2188412b5bd1f86cd9ee2c4d6 /macros/luatex/generic/barracuda/test/test-code39/004-code39-test.tex
parent05ad7831f64aa0e2fc9eac63816eeafcb0b09708 (diff)
CTAN sync 201912050300
Diffstat (limited to 'macros/luatex/generic/barracuda/test/test-code39/004-code39-test.tex')
-rw-r--r--macros/luatex/generic/barracuda/test/test-code39/004-code39-test.tex46
1 files changed, 46 insertions, 0 deletions
diff --git a/macros/luatex/generic/barracuda/test/test-code39/004-code39-test.tex b/macros/luatex/generic/barracuda/test/test-code39/004-code39-test.tex
new file mode 100644
index 0000000000..559dc94383
--- /dev/null
+++ b/macros/luatex/generic/barracuda/test/test-code39/004-code39-test.tex
@@ -0,0 +1,46 @@
+% !TeX program = LuaTeX
+% Copyright (C) 2019 Roberto Giacomelli
+
+\newbox\mybox
+\nopagenumbers
+
+Test 4: check uint costructor:
+
+\directlua{
+barracuda = require "barracuda"
+local c39, err = barracuda:get_barcode_class()
+ :new_encoder("code39")
+assert(not err, err)
+local err
+local symbol
+symbol, err = c39:from_uint(0, {text_hpos="center"})
+assert(not err, err)
+
+local canvas = barracuda:new_canvas()
+symbol:append_ga(canvas)
+
+local drv = barracuda:get_driver()
+drv:ga_to_hbox(canvas, "mybox")
+}
+\box\mybox
+
+\directlua{
+local c39, err = barracuda:get_barcode_class()
+ :enc_by_name("code39")
+assert(c39, err)
+local e
+local symbol
+symbol, e = c39:from_uint(0123456789, {text_hpos="spaced",text_star=true})
+assert(not e, e)
+
+local canvas = barracuda:new_canvas()
+symbol:append_ga(canvas)
+
+local drv = barracuda:get_driver()
+drv:ga_to_hbox(canvas, "mybox")
+}
+\box\mybox
+
+\bye
+
+