-- Test script for luabarcode

print("Running tests...")

randomseed(date("%S"))

-- PNG Tests
-- Random with even number of digits ([2,30]) code
for i = 1, 30 do
   local codigo = ""
   for j = 1, (2*i) do
      codigo = codigo..random(0,9)
   end
   
   print("Created even numbered code with "..(2*i).." digits")
   bc, err = barcode(codigo)

   if err ~= nil then
      print("-------> Error creating barcode: "..err)
      break
   end

   print("   Created barcode")
   _, err = savebarcode(bc, "p", codigo..".png")
   
   if err ~= nil then
      print("-------> Error saving barcode to ["..codigo..".png]: "..err)
      break
   end

   print("   Saved PNG barcode")
   
   codigo2, err = readbarcode(codigo..".png", "p")
   
   if err ~= nil then
      print("-------> Error reading barcode from ["..codigo..".png]: "..err)
      remove(codigo..".png")
      break
   end

   remove(codigo..".png")
   
   if codigo2 ~= codigo then
      if codigo2 == nil then codigo2 = "nil" end
      print("-------> The code read is different from the code written: "..codigo.." != "..codigo2)
      break
   end
   
   print("   Decoded barcode ok")
end

print("\n\n")

randomseed(date("%S"))

-- Random with odd number of digits ([1,19]) code
for i = 0, 29 do
   local codigo = ""
   for j = 1, (2*i)+1 do
      codigo = codigo..random(0,9)
   end
   
   print("Created odd numbered code with "..((2*i)+1).." digits")
   bc, err = barcode(codigo)

   if err ~= nil then
      print("-------> Error creating barcode: "..err)
      break
   end

   print("   Created barcode")
   _, err = savebarcode(bc, "p", codigo..".png")
   
   if err ~= nil then
      print("-------> Error saving barcode to ["..codigo..".png]: "..err)
      break
   end

   print("   Saved PNG barcode")
   
   codigo2, err = readbarcode(codigo..".png", "p")
   
   if err ~= nil then
      print("-------> Error reading barcode from ["..codigo..".png]: "..err)
      remove(codigo..".png")
      break
   end

   remove(codigo..".png")
   
   if codigo2 ~= codigo.."0" then
      if codigo2 == nil then codigo2 = "nil" end
      print("-------> The code read is different from the code written: "..codigo.." != "..codigo2)
      break
   end
   
   print("   Decoded barcode ok")
end

-- JPG Tests
-- Random with even number of digits ([2,30]) code
for i = 1, 30 do
   local codigo = ""
   for j = 1, (2*i) do
      codigo = codigo..random(0,9)
   end
   
   print("Created even numbered code with "..(2*i).." digits")
   bc, err = barcode(codigo)

   if err ~= nil then
      print("-------> Error creating barcode: "..err)
      break
   end

   print("   Created barcode")
   _, err = savebarcode(bc, "j", codigo..".jpg")
   
   if err ~= nil then
      print("-------> Error saving barcode to ["..codigo..".jpg]: "..err)
      break
   end

   print("   Saved JPG barcode")
   
   codigo2, err = readbarcode(codigo..".jpg", "j")
   
   if err ~= nil then
      print("-------> Error reading barcode from ["..codigo..".jpg]: "..err)
      remove(codigo..".jpg")
      break
   end

   remove(codigo..".jpg")
   
   if codigo2 ~= codigo then
      if codigo2 == nil then codigo2 = "nil" end
      print("-------> The code read is different from the code written: "..codigo.." != "..codigo2)
      break
   end
   
   print("   Decoded barcode ok")
end

print("\n\n")

randomseed(date("%S"))

-- Random with odd number of digits ([1,19]) code
for i = 0, 29 do
   local codigo = ""
   for j = 1, (2*i)+1 do
      codigo = codigo..random(0,9)
   end
   
   print("Created odd numbered code with "..((2*i)+1).." digits")
   bc, err = barcode(codigo)

   if err ~= nil then
      print("-------> Error creating barcode: "..err)
      break
   end

   print("   Created barcode")
   _, err = savebarcode(bc, "j", codigo..".jpg")
   
   if err ~= nil then
      print("-------> Error saving barcode to ["..codigo..".jpg]: "..err)
      break
   end

   print("   Saved JPG barcode")
   
   codigo2, err = readbarcode(codigo..".jpg", "j")
   
   if err ~= nil then
      print("-------> Error reading barcode from ["..codigo..".jpg]: "..err)
      remove(codigo..".jpg")
      break
   end

   remove(codigo..".jpg")
   
   if codigo2 ~= codigo.."0" then
      if codigo2 == nil then codigo2 = "nil" end
      print("-------> The code read is different from the code written: "..codigo.." != "..codigo2)
      break
   end
   
   print("   Decoded barcode ok")
end