--- 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.
# Generated using http://pygments.org/source unit-under-test.tcl ;# contains the definition of bits_serealize test base--always-ok {This is as simple as it gets.} -constraints { } -setup { } -body { return TRUE } -cleanup { } -result TRUE test bits_serealize--partial-quanta {description here...} -constraints { } -setup { } -body { return [bits_serealize 32 " 0x01 16 "] } -cleanup { } -result [list 1] test bits_serealize--full-quanta {description here...} -constraints { } -setup { } -body { return [bits_serealize 32 " 0xFFFFFFFF 32 "] } -cleanup { } -result [list [ format "%u" 0xFFFFFFFF ]] test bits_serealize--over-quanta {description here...} -constraints { } -setup { } -body { return [bits_serealize 32 " 0x060504030201 64 "] } -cleanup { } -result [list [ format "%u" 0x04030201 ] [ format "%u" 0x0605 ]] test bits_serealize--way-over-quanta {description here...} -constraints { } -setup { } -body { return [bits_serealize 32 " 0x060504030201 320 "] } -cleanup { } -result [list [ format "%u" 0x04030201 ] [ format "%u" 0x0605 ] 0 0 0 0 0 0 0 0] test bits_serealize--cross-quanta {description here...} -constraints { } -setup { } -body { return [bits_serealize 32 " 0xFF 1 0xFF 2 0xFF 3 0xFF 4 0xFF 6 0x04030201 32 "] } -cleanup { } -result [list [ format "%u" 0x201FFFF ] [ format "%u" 0x403 ]] test bits_serealize--quanta-and-half {description here...} -constraints { } -setup { } -body { return [bits_serealize 32 " 0xFFEEDDCCBBAA 48 "] } -cleanup { } -result [list [ format "%u" 0xDDCCBBAA ] [ format "%u" 0xFFEE ]]
 |
| eclipse-unit-testing |
-data
C:/Devenv/Devenv eclipse workspace
-showlocation
-showsplash
org.eclipse.platform
--launcher.defaultAction
openFile
-vm
C:/Program Files/Java/jre6/bin/client/jvm.dll
-vmargs
-Dosgi.requiredJavaVersion=1.6
-Declipse.p2.unsignedPolicy=allow
-Xms128m
-Xmx384m
-Xss4m
-XX:PermSize=128m
-XX:MaxPermSize=384m
-XX:CompileThreshold=5
-XX:MaxGCPauseMillis=10
-XX:MaxHeapFreeRatio=70
-XX:+CMSIncrementalPacing
-XX:+UnlockExperimentalVMOptions
-XX:+UseG1GC
-XX:+UseFastAccessorMethods
-Dcom.sun.management.jmxremote
