x-ocaml Cell Modes Tests

Loading...


  
  

    
T1: Hidden cell

    let secret = 42
    let t1_result = secret + 1
  


  
  

    
T2: Interactive cell (read-only)

    let t2_x = 1 + 2
  


  
  

    
T3: Exercise cell (editable)

    let double x = x * 2
  


  
  

    
T4: Test cell (read-only)

    assert (double 5 = 10)
  


  
  

    
T5: Default mode (no attribute)

    let t5_default = 99
  


  
  

    
T6: Merlin disabled

    let t6_no_merlin = 1
  


  
  

    
T7: Full chain (hidden → exercise → test)

    let check_positive f = assert (f 1 > 0)
    
let rec facr n = if n <= 1 then 1 else n * facr (n - 1)
    
    
assert (facr 10 = 3628800);;
check_positive facr