luaixp/test.lua

   1 #!/usr/bin/env lua
   2
   3 require "ixp"
   4
   5 -- print ("testing...")
   6 -- ixp.test ()
   7
   8 print ("create new ixp...")
   9 x = ixp.new("unix!/tmp/ns.bart.:0/wmii")
  10
  11 -- print ("testing...")
  12 -- x:test ()
  13
  14 print ("writing...")
  15 x:write ("/lbar/1", '#FF0000 #00FF00 #0000FF 1xxx')
  16
  17 print ("reading...")
  18 data = x:read ("/lbar/1")
  19 print ("  " .. data)
  20
  21 print ("reading with limit...")
  22 data,short = x:read ("/lbar/1", 8)
  23 print ("  " .. tostring(data))
  24 if not data then
  25         print ("  ... error: " .. tostring(short) .. ")")
  26 elseif short then
  27         print ("  ... short read")
  28 end
  29
  30 print ("reading a nonexistent file...")
  31 data,short = x:read ("/lbar/xxxxxxxxxxxxxxxxxxxxxxx")
  32 print ("  " .. tostring(data))
  33 if not data then
  34         print ("  ... error: " .. short)
  35 elseif short then
  36         print ("  ... short read")
  37 end
  38
  39 print ("stating...")
  40 data = x:stat ("/event")
  41 for k,v in pairs (data) do
  42         local hex = ""
  43         if type(v) == "number" then
  44                 hex = string.format(" (0x%x)",v)
  45         end
  46         print ("  "..k.." = " .. tostring(v) .. hex)
  47 end
  48
  49 print ("directory list...")
  50 for data in x:idir ("/") do
  51         local slash = ""
  52         if data.modestr:match("^d") then
  53                 slash = "/"
  54         end
  55         print ("  " .. data.name .. slash)
  56 end
  57
  58
  59 print ("iterating...")
  60 for ev in x:iread("/event") do
  61         print ("ev: '" .. ev .. "'")
  62 end
  63
  64 print ("finished!")