# Create a notepad window and check we can find it system("cmd /c start notepad.exe \"README\""); my @waitwin = WaitWindowLike(0, "readme|README", $class_re); is(@waitwin, 1, "There is one notepad open with README in it"); my @windows = FindWindowLike(0, "readme|README", $class_re); is(@windows, 1, "The same from FindWindowLike"); is($waitwin[0], $windows[0], "The two windows are the same"); # Find the edit window inside notepad my $notepad = $windows[0]; my @edits = FindWindowLike($notepad, "", "Edit"); is(@edits, 1, "Edit window found within notepad");