Hello, I'm not very perl literate, but I want to convert a perl script to Haskell. This bit of perl is part of darcs' test suite. I was hoping to make it "more portable" by writing it in Haskell. By more portable I mean, works in windows without cygwin/mingw/msys and avoids the need for perl also. Depending on a Haskell compiler seems reasonable since darcs is written in Haskell :) Correct me if I'm wrong, but if I want to make this work on windows I can't use System.Posix, right? If so, what is the portable way to set environment variables? I see[1] that getEnv exists in System.Environment, but setEnv is in System.Posix.Env. I looked in System.Win32 and I didn't see anything that looked like it would manipulate environment variables. Will I have to use System.Process.runProcess on Win32? I'd like this to work on ghc 6.6 and System.Process looks new? Another thing I noticed is that System.Directory doesn't give me a way to exactly emulate this bit of perl: mkdir 'test_output', 0750; If I use System.Directory.setPermissions, then I think the closest I can approximate those permissions is: setPermissions "test_output" (Permissions {readable = True, writable = True, executable = True, searchable = True}) Which just makes sure it has the 7 for user, but doesn't seem to change the other permissions. Maybe that won't matter in practice, but I wanted to make it as close as possible to minimize unforeseen problems. I guess I could write a function that uses setPermissions on win32 and uses the appropriate thing from System.Posix when not on windows. Below is the full perl script if you want to see what I'm starting from. I think most of it should be easy to replace. \begin{perl} #!/usr/bin/perl -w # Run each of the shell tests, capturing the output, and reporting passed # or failed. use Cwd; use File::Find; # Place to put test output to avoid cluttering test/ mkdir 'test_output', 0750; # Override the users default .darcs settings $ENV{HOME} = cwd(); mkdir '.darcs'; system 'echo ALL --ignore-times >> .darcs/defaults'; # Used for finding darcs, but may not be defined by the shell $ENV{PWD} = cwd(); # Put the right darcs first in PATH my $darcspath="$ENV{HOME}/.."; if ($ENV{DARCS}) { # User has asked for a particular darcs... my $actualdarcs=`which $ENV{DARCS}`; my $darcspath=`dirname "$actualdarcs"`; } $ENV{PATH} = "$darcspath:$ENV{PATH}"; # Some environment variables can act as defaults that we don't want $ENV{EMAIL} = $ENV{DARCS_EMAIL} = 'tester'; # These two environment variables will turn off darcs' "Christmas mode". # It will make the tests run a tad faster, and make darcs' output # independent of the testing systems locale and environment. $ENV{DARCS_DONT_COLOR} = 1; $ENV{DARCS_DONT_ESCAPE_ANYTHING} = 1; my $OK = 1; my @Failures; my @Passes; `which bash`; if( $? != 0 ) { die "You need bash to run the shell tests!" } for my $test (@ARGV) { my $test_out = "test_output/$test.out"; printf "Running %-40s", "$test ..."; my $output = `bash $test 2>&1`; if( $? == 0 ) { push @Passes, $test; print " passed.\n"; } else { $OK = 0; push @Failures, $test; print " FAILED!\n"; print "Output from failed $test:\n$output"; } # give ourselves write permissions to every file in a tmp dir # (in case a script sets permissions and fails to clean up # after itself) my @tmpdirs = glob("tmp* temp*"); if (@tmpdirs > 0) { find (sub { chmod 0755, $_; }, @tmpdirs); } } my $CWD = cwd(); if ($CWD =~ /bugs/ && $#Passes >= 0) { print "Some tests passed:\n"; print "\t$_\n" for @Passes; } if ($OK) { print "All tests successful!\n"; } else { print "TESTS FAILED!\n"; print "\t$_\n" for @Failures; } # Exit with non-zero if anything failed. exit !$OK; \end{perl} Thanks! Jason [1] http://www.haskell.org/ghc/docs/latest/html/libraries/