test/simple.lua

   1 local graph = require "graph"
   2 local n={}
   3 local e={}
   4 local g=graph.open("g", "directed")
   5 --local r=g:node("R")
   6 local N=5
   7 for i=1,N do
   8    table.insert(n, g:node("n"..i))
   9 end
  10 for i=1,N do
  11    if i < N then
  12       local _e = g:edge(n[i], n[i+1], "e"..i)
  13 --      table.insert(e, _e)
  14    else
  15       local _e = g:edge(n[i], n[1], "e"..i)
  16 --      table.insert(e, _e)
  17    end
  18 end
  19 print("Collecting ...")
  20 collectgarbage()
  21 g:show()
  22 --print("Deleting node 3 ...")
  23 n[3]:delete()
  24 g:show()
  25    --local n1, n2 = g:node("n1"), g:node("n2")
  26 --local e1 = g:edge(n1, n2, "e1")
  27 --os.execute("sleep 2")
  28 print("Hit return to close ...")
  29 x=io.stdin:read()
  30 g:close()
  31 collectgarbage()
  32 --os.execute("sleep 1")
  33 print("Hit return to exit ...")
  34 x=io.stdin:read()