add test_windtools.R