Paul McGee pmcgee69

Keybase proof

I hereby claim:

I am pmcgee69 on github.
I am paulmcgee (https://keybase.io/paulmcgee) on keybase.
I have a public key whose fingerprint is 8DD8 B479 B84A 1A98 2477 F21B A694 C45B C584 7FFE

To claim this, I am signing this object:

DUnit-M

Pascaliburnus - Data driven unit testing for Delphi

http://seanbdurkin.id.au/pascaliburnus2/archives/240

https://bitbucket.org/sean_b_durkin/dunit-m

"Jarrod Hollingworth" "Colin Johnsun" "Graham Ritchie" "Ian Krigsman" "James D Duff" "Kim Bracknell" "Mathias Burbach" "Misha Charrett" "Niels Maschmeyer" "Paul Jervois"


	-- Reader / unReader syntax

	newtype Reader e a = Reader { unReader :: e -> a }

	:t Reader

	:t unReader

	program AutoFreeTest;
	{$APPTYPE CONSOLE}
	{$R *.res}

	uses
	System.SysUtils,
	System.Classes;

	type
	IAutoFree = interface

	{$APPTYPE CONSOLE}
	program Nulls_in_Delphi;
	uses
	System.SysUtils;

	const nl = sLineBreak;

	procedure print(a:pointer;b:longint; s:string);
	begin
	writeln( longint(a).ToHexString, ' ', b.ToHexString, ' ', s);

	{$APPTYPE CONSOLE}
	program Multi_Case;

	// Also see - http://delphi.fosdal.com/2010/12/generic-case-for-strings.html
	// - http://delphi.fosdal.com/2010/12/generic-cache.html

	uses system.SysUtils, system.Generics.Defaults;

	// Just Any type Delphi Case statement (2010)
	// Sergey Antonov Blog

	// Source: Hands-on Rust.
	use std::io::stdin;

	fn main() {
	let MYLIST = [ "One", "Two", "Three" ];
	for i in 0..3 {
	println!("{}", MYLIST[i]);
	}
	}

	{$APPTYPE CONSOLE}
	program haskell_tree_4;

	type
	PMyTree = ^MyTree;
	MyTree = record
	case b:boolean of
	false : ( );
	true : ( Node : integer;
	Left, Right : PMyTree );