@@ -8,8 +8,8 @@ open NUnit.Framework
88open Microsoft.CodeAnalysis
99open Microsoft.CodeAnalysis .CSharp
1010
11- [<TestFixture; Category( " FCTool " ) >]
12- type FcToolTests () =
11+ [<TestFixture; Category( " FCCTool " ) >]
12+ type FccToolTests () =
1313 let rec findUp ( startDir : string ) ( marker : string ) =
1414 let full = Path.GetFullPath( startDir)
1515 let candidate = Path.Combine( full, marker)
@@ -49,9 +49,9 @@ type FcToolTests() =
4949 run $" run --no-build --project {projPath} --framework net9.0 -- {pathArg}"
5050
5151 [<Test>]
52- member _. ``fc removes comments in- place , preserves strings , idempotent`` () =
52+ member _. ``fcc removes comments in- place , preserves strings , idempotent`` () =
5353 let tmp =
54- Directory.CreateDirectory( Path.Combine( Path.GetTempPath(), " fc_it_ " + Guid.NewGuid() .ToString( " N" )))
54+ Directory.CreateDirectory( Path.Combine( Path.GetTempPath(), " fcc_it_ " + Guid.NewGuid() .ToString( " N" )))
5555
5656 try
5757 let sample = Path.Combine( tmp.FullName, " sample.cs" )
@@ -73,7 +73,7 @@ class C /* type */
7373
7474 File.WriteAllText( sample, input, UTF8Encoding( false ))
7575
76- let proj = Path.Combine( repoRoot.Value, " tools" , " ancp" , " fc " , " fc .fsproj" )
76+ let proj = Path.Combine( repoRoot.Value, " tools" , " ancp" , " fcc " , " fcc .fsproj" )
7777 let ec1 , _ , err1 = runProj proj sample
7878 Assert.That( ec1, Is.EqualTo( 0 ), err1)
7979 let after1 = File.ReadAllText( sample, Encoding.UTF8)
@@ -97,7 +97,7 @@ class C /* type */
9797 ()
9898
9999 [<Test>]
100- member _. ``fc semantic tokens unchanged ( ignoring trivia ) ``() =
100+ member _. ``fcc semantic tokens unchanged ( ignoring trivia ) ``() =
101101 let input =
102102 """
103103using System; // import
@@ -113,7 +113,7 @@ class C /* type */
113113}
114114"""
115115
116- let cleaned = FcTool .CommentStripper.strip input
116+ let cleaned = FccTool .CommentStripper.strip input
117117
118118 let opts =
119119 CSharpParseOptions( languageVersion = LanguageVersion.Latest, documentationMode = DocumentationMode.Parse)
@@ -132,9 +132,9 @@ class C /* type */
132132 Assert.That( snd b[ i], Is.EqualTo( snd a[ i]))
133133
134134 [<Test>]
135- member _. ``fc directory recursion processes all cs files`` () =
135+ member _. ``fcc directory recursion processes all cs files`` () =
136136 let tmp =
137- Directory.CreateDirectory( Path.Combine( Path.GetTempPath(), " fc_dir_ " + Guid.NewGuid() .ToString( " N" )))
137+ Directory.CreateDirectory( Path.Combine( Path.GetTempPath(), " fcc_dir_ " + Guid.NewGuid() .ToString( " N" )))
138138
139139 try
140140 let dir1 = tmp.FullName
@@ -144,7 +144,7 @@ class C /* type */
144144 File.WriteAllText( cs1, " class A { // c\n string s=\" x/*y*/\" ; /* z */}\n " , UTF8Encoding( false ))
145145 File.WriteAllText( cs2, " #region r\n class B{ /* m */ }\n #endregion\n " , UTF8Encoding( false ))
146146
147- let proj = Path.Combine( repoRoot.Value, " tools" , " ancp" , " fc " , " fc .fsproj" )
147+ let proj = Path.Combine( repoRoot.Value, " tools" , " ancp" , " fcc " , " fcc .fsproj" )
148148 let ec , _ , err = runProj proj dir1
149149 Assert.That( ec, Is.EqualTo( 0 ), err)
150150 let t1 = File.ReadAllText( cs1, Encoding.UTF8)
@@ -158,14 +158,14 @@ class C /* type */
158158 ()
159159
160160 [<Test>]
161- member _. ``fc non- cs file returns error code 2`` () =
162- let tmp = Path.Combine( Path.GetTempPath(), " fc_err_ " + Guid.NewGuid() .ToString( " N" ))
161+ member _. ``fcc non- cs file returns error code 2`` () =
162+ let tmp = Path.Combine( Path.GetTempPath(), " fcc_err_ " + Guid.NewGuid() .ToString( " N" ))
163163 Directory.CreateDirectory( tmp) |> ignore
164164
165165 try
166166 let txt = Path.Combine( tmp, " note.txt" )
167167 File.WriteAllText( txt, " not cs" , UTF8Encoding( false ))
168- let proj = Path.Combine( repoRoot.Value, " tools" , " ancp" , " fc " , " fc .fsproj" )
168+ let proj = Path.Combine( repoRoot.Value, " tools" , " ancp" , " fcc " , " fcc .fsproj" )
169169 let ec , _ , _ = runProj proj txt
170170 Assert.That( ec, Is.EqualTo( 2 ))
171171 finally
@@ -175,13 +175,13 @@ class C /* type */
175175 ()
176176
177177 [<Test>]
178- member _. ``fc path not found returns 1`` () =
179- let proj = Path.Combine( repoRoot.Value, " tools" , " ancp" , " fc " , " fc .fsproj" )
178+ member _. ``fcc path not found returns 1`` () =
179+ let proj = Path.Combine( repoRoot.Value, " tools" , " ancp" , " fcc " , " fcc .fsproj" )
180180 let ec , _ , err = runProj proj " __definitely_missing__"
181181 Assert.That( ec, Is.EqualTo( 1 ), err)
182182
183- [<TestFixture; Category( " FCTool .Unit" ) >]
184- type FcToolUnitTests () =
183+ [<TestFixture; Category( " FCCTool .Unit" ) >]
184+ type FccToolUnitTests () =
185185 [<Test>]
186186 member _. ``Cli.parse and toSettings parse all flags`` () =
187187 let argv =
@@ -203,7 +203,7 @@ type FcToolUnitTests() =
203203 " file1.cs"
204204 " dir" |]
205205
206- let o = FcTool .Cli.parse argv
206+ let o = FccTool .Cli.parse argv
207207 Assert.That( o.ShowHelp, Is.True)
208208 Assert.That( o.ShowVersion, Is.True)
209209 Assert.That( o.InPlace, Is.True)
@@ -213,7 +213,7 @@ type FcToolUnitTests() =
213213 Assert.That( o.Inputs, Is.EquivalentTo([ " file1.cs" ; " dir" ]))
214214 Assert.That( o.KeepDocs && o.KeepHeaders && o.KeepRegions, Is.True)
215215 Assert.That( o.KeepIfMatch, Is.EquivalentTo([ " TODO" ; " FIXME" ]))
216- let s = FcTool .Cli.toSettings o
216+ let s = FccTool .Cli.toSettings o
217217 Assert.That( s.KeepDocs && s.KeepHeaders && s.KeepRegions, Is.True)
218218 Assert.That( s.KeepIfMatch, Is.EquivalentTo([ " TODO" ; " FIXME" ]))
219219
@@ -235,7 +235,7 @@ class C {
235235"""
236236
237237 let s1 =
238- FcTool .CommentStripper.stripWith
238+ FccTool .CommentStripper.stripWith
239239 { KeepDocs = true
240240 KeepHeaders = false
241241 KeepRegions = false
@@ -247,7 +247,7 @@ class C {
247247 Assert.That( s1.Contains( " #region" ), Is.False)
248248
249249 let s2 =
250- FcTool .CommentStripper.stripWith
250+ FccTool .CommentStripper.stripWith
251251 { KeepDocs = false
252252 KeepHeaders = true
253253 KeepRegions = false
@@ -258,7 +258,7 @@ class C {
258258 Assert.That( s2.Contains( " /// <summary>Doc</summary>" ), Is.False)
259259
260260 let s3 =
261- FcTool .CommentStripper.stripWith
261+ FccTool .CommentStripper.stripWith
262262 { KeepDocs = false
263263 KeepHeaders = false
264264 KeepRegions = true
@@ -268,7 +268,7 @@ class C {
268268 Assert.That( s3.Contains( " #region" ), Is.True)
269269
270270 let s4 =
271- FcTool .CommentStripper.stripWith
271+ FccTool .CommentStripper.stripWith
272272 { KeepDocs = false
273273 KeepHeaders = false
274274 KeepRegions = false
0 commit comments