# FERDO R LAB — Downloads'tan tüm teknik kabul testlerini başlat
# Windows: ZIP'i Downloads'a çıkar. RStudio Console'da bu dosyayı source et.
# Tek seferde Ders 1-6 kabul testlerini çalıştırır; ödevleri notlamaz.

indirilenler <- file.path(Sys.getenv("USERPROFILE"), "Downloads")
if (!dir.exists(indirilenler)) {
  indirilenler <- file.path(path.expand("~"), "Downloads")
}
if (!dir.exists(indirilenler)) {
  stop("Downloads klasörü bulunamadı.")
}

testler <- list.files(
  indirilenler,
  pattern = "^TEST_ET[.]R$",
  recursive = TRUE,
  full.names = TRUE,
  ignore.case = TRUE
)
testler <- testler[
  tolower(basename(dirname(testler))) == "r-lab"
]
if (!length(testler)) {
  stop("Downloads altında çıkarılmış R-Lab/TEST_ET.R bulunamadı. ZIP'i tamamen çıkar.")
}
# Birden fazla kopya varsa en son değişen dosyayı seç.
test_dosyasi <- testler[which.max(file.info(testler)$mtime)]
ana_klasor <- dirname(dirname(test_dosyasi))

onceki_klasor <- getwd()
tryCatch({
  setwd(ana_klasor)
  cat("Bulunan paket: ", normalizePath("R-Lab"), "\n", sep = "")
  source("R-Lab/TEST_ET.R", encoding = "UTF-8")
}, finally = {
  setwd(onceki_klasor)
})