From 1bfafdada07042033e4fc21a1ede745edb13b162 Mon Sep 17 00:00:00 2001
From: Martin Nilsson <mani@lysator.liu.se>
Date: Thu, 19 Feb 2004 15:53:16 +0100
Subject: [PATCH] Test for filename case problems.
Rev: tools/release_checks.pike:1.8
---
tools/release_checks.pike | 22 ++++++++++++++++++++++
1 file changed, 22 insertions(+)
diff --git a/tools/release_checks.pike b/tools/release_checks.pike
index 3e68adb2d5..dbff75f34c 100644
--- a/tools/release_checks.pike
+++ b/tools/release_checks.pike
@@ -175,6 +175,19 @@ int test_version() {
return status;
}
+void test_fncases(void|string dir) {
+ dir = dir||".";
+ array d = get_dir(dir);
+ multiset d2 = (<>);
+ foreach(d, string fn) {
+ if( d2[lower_case(fn)] )
+ write("%O with different casings in %O.\n", fn, dir);
+ if( Stdio.is_dir(dir+"/"+fn) )
+ test_fncases(dir+"/"+fn);
+ d2[lower_case(fn)]=1;
+ }
+}
+
void main(int args) {
if(args>1) {
write("This program checks various aspects of the Pike tree\n"
@@ -196,4 +209,13 @@ void main(int args) {
test_unicode();
test_realpike();
test_version();
+
+ test_fncases("src");
+ test_fncases("lib");
+ test_fncases("bin");
+ test_fncases("man");
+ test_fncases("tools");
+ test_fncases("packaging");
+ test_fncases("refdoc");
+
}
--
GitLab