mirror of
https://github.com/TomHarte/CLK.git
synced 2024-11-30 04:50:08 +00:00
65 lines
2.4 KiB
Plaintext
65 lines
2.4 KiB
Plaintext
|
//
|
||
|
|
// ArchimedesStaticAnalyserTests.m
|
||
|
|
// Clock Signal
|
||
|
|
//
|
||
|
|
// Created by Thomas Harte on 20/05/2024.
|
||
|
|
// Copyright 2024 Thomas Harte. All rights reserved.
|
||
|
|
//
|
||
|
|
|
||
|
|
#import <XCTest/XCTest.h>
|
||
|
|
|
||
|
|
#import <CommonCrypto/CommonDigest.h>
|
||
|
|
#include "../../../Analyser/Static/StaticAnalyser.hpp"
|
||
|
|
#include "../../../Analyser/Static/Acorn/Target.hpp"
|
||
|
|
|
||
|
|
static NSString *archimedesDiskPath = @"/Users/thomasharte/Library/Mobile Documents/com~apple~CloudDocs/Soft/Archimedes";
|
||
|
|
|
||
|
|
static NSDictionary<NSString *, NSString *> *mainProgramsBySHA1 = @{
|
||
|
|
@"371b30787a782cb1fe6cb6ad2217a832a06e1e96": @"!TimeZone",
|
||
|
|
@"3459adef724e2cd6f3681050a9ce47394231b4f9": @"!Talisman",
|
||
|
|
@"3022e18d47ed0fc14b09c18caff3fc0ac1f4edff": @"!StarTrade",
|
||
|
|
@"252bfde8d602fe171e0657fa3f9dfeba1803e6eb": @"!Blowpipe",
|
||
|
|
@"e3c32b8cbd3cd31cbca93e5a45b94e7f8058b8f7": @"Zelanites.!Zelanites",
|
||
|
|
@"2e1cb15cde588e22f50518b6ffa47a8df89b14c0": @"!Fire_Ice",
|
||
|
|
@"069592c0b90a0b9112daf014b7e19b4a51f9653b": @"!UIM",
|
||
|
|
@"14c3785b3bc3f7e2d4a81e92ff06e11656e6b76c": @"!UIM",
|
||
|
|
|
||
|
|
// Various things that are not the first disk.
|
||
|
|
@"2cff99237837e2291b845eb63977362ad9b4f040": @"",
|
||
|
|
@"3615bcb8a953fbba3d56a956243341a022208101": @"",
|
||
|
|
};
|
||
|
|
#undef Record
|
||
|
|
|
||
|
|
@interface ArchimedesStaticAnalyserTests : XCTestCase
|
||
|
|
@end
|
||
|
|
|
||
|
|
@implementation ArchimedesStaticAnalyserTests
|
||
|
|
|
||
|
|
- (void)testADFs {
|
||
|
|
for(NSString *testFile in [[NSFileManager defaultManager] contentsOfDirectoryAtPath:archimedesDiskPath error:nil]) {
|
||
|
|
NSString *fullPath = [archimedesDiskPath stringByAppendingPathComponent:testFile];
|
||
|
|
|
||
|
|
// Compute file SHA1.
|
||
|
|
NSData *fileData = [NSData dataWithContentsOfFile:fullPath];
|
||
|
|
uint8_t sha1Bytes[CC_SHA1_DIGEST_LENGTH];
|
||
|
|
CC_SHA1([fileData bytes], (CC_LONG)[fileData length], sha1Bytes);
|
||
|
|
NSMutableString *const sha1 = [[NSMutableString alloc] init];
|
||
|
|
for(int c = 0; c < CC_SHA1_DIGEST_LENGTH; c++) [sha1 appendFormat:@"%02x", sha1Bytes[c]];
|
||
|
|
|
||
|
|
// Get analysed target and correct answer per list above.
|
||
|
|
auto targets = Analyser::Static::GetTargets([fullPath UTF8String]);
|
||
|
|
NSString *const mainProgram = mainProgramsBySHA1[sha1];
|
||
|
|
if(!mainProgram) {
|
||
|
|
NSLog(@"Not checking %@ with SHA1 %@", testFile, sha1);
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
// Test equality.
|
||
|
|
auto *const target = dynamic_cast<Analyser::Static::Acorn::ArchimedesTarget *>(targets.front().get());
|
||
|
|
XCTAssert(target != nullptr);
|
||
|
|
XCTAssert(target->main_program == std::string([mainProgram UTF8String]), @"%@; should be %@, is %s", testFile, mainProgram, target->main_program.c_str());
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
@end
|