--- my_code.tests.lua Code --------------------------------------------
-- Some super function to test
function my_super_function( arg1, arg2 ) return arg1 + arg2 end
-- Unit testing starts
require('luaunit')
TestMyStuff = {} --class
function TestMyStuff:testWithNumbers()
a = 1
b = 2
result = my_super_function( a, b )
assertEquals( type(result), 'number' )
assertEquals( result, 3 )
end
function TestMyStuff:testWithRealNumbers()
a = 1.1
b = 2.2
result = my_super_function( a, b )
assertEquals( type(result), 'number' )
-- I would like the result to be always rounded to an integer
-- but it won't work with my simple implementation
-- thus, the test will fail
assertEquals( result, 3 )
end
-- class TestMyStuff
luaUnit:run()--- Code End -----------------------------------------------------------------------
- Execute the test code.
- Add your tests and assumption checking.
- Fix what's broken.
-- trivial protocol example
-- declare our protocol
trivial_proto = Proto("trivial","Trivial Protocol")
-- create a function to dissect it
function trivial_proto.dissector(buffer,pinfo,tree)
pinfo.cols.protocol = "TRIVIAL"
local subtree = tree:add(trivial_proto,buffer(),"Trivial Protocol Data")
subtree:add(buffer(0,2),"The first two bytes: " .. buffer(0,2):uint())
subtree = subtree:add(buffer(2,2),"The next two bytes")
subtree:add(buffer(2,1),"The 3rd byte: " .. buffer(2,1):uint())
subtree:add(buffer(3,1),"The 4th byte: " .. buffer(3,1):uint())
end
-- load the udp.port table
udp_table = DissectorTable.get("udp.port")
-- register our protocol to handle udp port 7777
udp_table:add(7777,trivial_proto)
REM Option Explicit Dim exitcode : exitcode = 0 REM --- Functions ------------------------------------------------------------------ function readFromRegistry (strRegistryKey, strDefault ) Dim value Dim objFSO, WSHShell On Error Resume Next Set objFSO = CreateObject("Scripting.FileSystemObject") Set WSHShell = CreateObject("Wscript.Shell") value = WSHShell.RegRead( strRegistryKey ) if err.number <> 0 then readFromRegistry= strDefault else readFromRegistry=value end if set WSHShell = nothing end function function readDataFromMsiFile(file_path) Set objInstaller = CreateObject("WindowsInstaller.Installer") Set objProduct = objInstaller.SummaryInformation(file_path) Wscript.Echo "Code page: " &objProduct.Property(1) Wscript.Echo "Title: " & objProduct.Property(2) Wscript.Echo "Subject: " & objProduct.Property(3) Wscript.Echo "Author: " & objProduct.Property(4) Wscript.Echo "Keywords: " & objProduct.Property(5) Wscript.Echo "Comment: " & objProduct.Property(6) Wscript.Echo "Template: " & objProduct.Property(7) Wscript.Echo "Last Author: " & objProduct.Property(8) Wscript.Echo "Revision number: " & objProduct.Property(9) Wscript.Echo "Edit Time: " & objProduct.Property(10) Wscript.Echo "Last Printed: " & objProduct.Property(11) Wscript.Echo "Creation Date: " & objProduct.Property(12) Wscript.Echo "Last Saved: " & objProduct.Property(13) Wscript.Echo "Page Count: " & objProduct.Property(14) Wscript.Echo "Word Count: " & objProduct.Property(15) Wscript.Echo "Character Count: " & objProduct.Property(16) Wscript.Echo "Application Name: " & objProduct.Property(18) Wscript.Echo "Security: " & objProduct.Property(19) Set objProduct = Nothing Set objInstaller = Nothing end function function ProductVersion() ' SOURCE: http://stackoverflow.com/questions/815744/retrieving-version-of-an-msi-file-built-with-wix Dim installer, database, view, result Set installer = CreateObject("WindowsInstaller.Installer") Set database = installer.OpenDatabase (".\installer.msi", 0) Dim sumInfo : Set sumInfo = installer.SummaryInformation(".\installer.msi", 0) sPackageCode = sumInfo.Property(9) ' PID_REVNUMBER = 9, contains the package code. Set view = database.OpenView ("SELECT Value FROM Property WHERE Property='ProductVersion'") view.Execute Set result = view.Fetch ProductVersion = result.StringData(1) end function
REM --- Code -------------------------------------------------------------------
new_version = ProductVersion() installed_version = readFromRegistry ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{12345678-D8EF-4EE9-8DC4-FF5911256E0D}\DisplayVersion", "0.0.0" ) uninstall_user_result = MsgBox("About to install " + new_version + " instead of " + installed_version + ", continue?",3,"Please answer") Select Case uninstall_user_result Case 6 ' Yes exitcode = 0 Case Else exitcode = 1 End Select WScript.Quit exitcode REM return results
Executing VBScripts from command lineHope it helps.