Smalltalk Seaside ile test verileri veya test verileri için eşdeğeri?

Question

Yürütmekte olan bir Seaside uygulamasında Test Driven Development'ı kullanıyorum ve tüm verilerim görüntüdeki nesneler olarak saklanıyor (bir veritabanının aksine).

ToDoTest>>setUp 
    savedTasks := Task tasklist. 
    Task deleteAllTasks. 

    savedProjects := ToDoProject projectlist. 
    ToDoProject deleteAllProjects. 

    savedPeople := Person peoplelist. 
    Person deleteAllPeople. 

Ve:

ToDoTest>>tearDown 
    Task tasklist: savedTasks. 
    ToDoProject projectlist: savedProjects. 
    Person peoplelist: savedPeople 

benim testleri çalıştırdığınızda böyle test verileri ile çöpe atılan önce

Yani gerçek verileri uzakta saklamak için dikkatli olmak zorunda kalmıştım Sorun, testlerim başarısız olduğunda ortaya çıkıyor, ki bu da tabii ki, bu hata ayıklayıcısını ortaya çıkarır ve sonra gideririm, ama gözyaşı, her zaman aranmaz ve böylece gerçek verilerimi kaybedebilirim.

Verileri dosyalara kaydediyorum, bu yüzden büyük bir sorun değil, ancak olmasını istediğim kadar yumuşak ve otomatik değil.

Neyse bunu geliştirebilir miyim?

Answer 1

Sorunu tamamen giderecek bir senaryo olup olmadığından emin değilim. Asıl sorun, modelin küresel olmasıdır. Bu uygun ve güzel ama böyle bir senaryoda kolayca başarısız oluyor. Bu yüzden, modeli global olarak daha yerelleştirilmiş bir modele dönüştürmeyi düşünürdüm, bu nedenle modelinizi yalnızca üretim amacıyla müdahale etmeden test amaçlı oluşturmak üzere oluşturabilirsiniz.

Mevcut kurulumunuzda düzeltmek için, bir yere aşağıdakileri eklemeniz gerekir: block. Bir emin blok, her şeyin yolunda gitmesi ya da bir hata olsaydı, bir şeyin yürütüldüğünü "garanti eder". Sorun, bir testten önce ve sonra yapmaniz gerektiğidir.

Bu durumda ben

runCase 
    [ self saveRealModel. 
     super runCase ] 
     ensure: [ self restoreRealModel ] 

Answer 2

Ah gibi bir şey ile kendi deney sınıfında TestCase >> # runCase üzerine yazılacağı, bu güzel bir test koku. Norbert, test edilmiş modelinizin muhtemelen küresel olmamasına dikkat etmekte haklı. Çoğu test, tek tek nesneler arasındaki etkileşim üzerinde olmalıdır. Film Şeridi'nde biz kullanıcıları bir GirişNoktası ile sınıf instancevar kullanıcılarla

DEUser subclass: #SBUser 
    instanceVariableNames: 'email initials projects invitations' 
    classVariableNames: '' 
    poolDictionaries: '' 
    category: 'StoryBoard-Data' 

var. Projelere sadece kullanıcılar aracılığıyla ulaşılabilir. domain

Iteration>on: aProject 
    ^self new 
     project: aProject; 
     yourself 

Bu dizge kendisi veya ayrı geçmesine izin veren nesneler için

users 
    ^users ifNil: [ users := OrderedCollection with: (SBAdministrator new 
     userid: 'admin'; 
     password: 'admin'; 
     yourself) 
    ] 

ve bir yol (onları

resetUsers 
    " SBUser resetUsers " 
    users := nil 

Genelde oluşturma bağımlılıkları iletebilirsiniz temizlemek için sahte) nesne